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MODULE DBGATSIGN (IDENT = ‘v04-000") = 


SRReR RAE RA AAA AAAAAEAAAAAAAAAAAAAAEATAAAET ERATE TERA AERAKAAAAAAAAAHAAAAEHES 


Lee e eRe RARER RAAAAAARARARAAEAAAAEAAAA AARNE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
PaNnerchntee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
SORPORAT ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


MODULE FUNCTION 


This module contains the pores and execution networks to support the 
commands having to do with command files (@, DECLARE, EXIT, 

SPAWN and ATTACH are also in this module (for Lack of a better 
place to put them). 


AUTHOR: David Plummer, CREATION DATE: 3/28/80 
MODIFIED BY: 


R. Title - Added SPAWN, ATTACH 
all of this inte this one module. 


REQUIRE "SRC$:DBGPROLOG.REQ'; 
LIBRARY ‘LIB$:DBGGEN.L32'; 
FORWARD ROUTINE 


DBGSNPARSE_AT_SIGN 
DBGSNEXECUTE AT SIGN, 
DBGSNPARSE_ATTATH 


ATTACH command parse network 
DBGSNEXECUTE ATTACH, 


ATTACH command execute network 
SPAWN command parse network 


DBGSNEXECUTE SPAWN, SPAWN command execution network 
DBGSCONSTRUCT _PARAM_NAME , Builds name of form 
DBGSPARSE_SPAOQN, Interface from old languages 


11 
15-Sep-1984 $3:32:1) AX-11 Bliss-32_ V4.0-74 
14-Sep-19 7:16:34 DEBUG. SRC JDBGATSIGN.B32;1 


XITLOOP). 


DECLARE, EXITLOOP, and merged 


Parse indirect command file invocation 
Execute indirect command file invocation 


DBGSNPARSE 
DBGSNEXECU 


11 


1 

1 

! Parses a parameter 

' Execution network for EX 
' Execution network for EX 
! ATN parse network for EX 
' ATN parse network for 

' DECLARE parse network 

! DECLARE execution network 
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199. 1 OT eOBESDEE UPR ENTRY Svesed ine 
» ° rocedure entry routine for @ procedures 
DBCSDEF“SYM_ADD Adds a DEFINE symbol x 

DBGSDEF ~SYM-F IND, Locate a DEFINE symbol 
DBGSGET" MEMORY Allocates permanent menory 
DBGS$GET~ TEMPMEM, Al locates and Lists dynamic storage 
DBGSNCIS_ADD, Routine to add a node to the cis 
DBGSNCIS_OPENICF Routine to connect an icf 
DBGSNCIS REMOVE, Removes Links from the command input stream 
DBGSNCOPY_DESC Copy a descriptor 
DBGSNEWLIRE: NOVALUE, Output rout ine 
DBGSNGET_SYMID, Obtain symid list 

G KE_ARG_VECT, Construct error message vector 

G TCA, Match the next token 


DBGSNREAD_NAME, 
DBGSNSAVE BREAK _BUFFE 


Read next work of input 

Parse an address expression 
Parse a Language expression 
Accept a DE name 

Parse a DEBUG command sequence 


DBGSNSAVE_DECIMAL_INT Parse an integer 
DBGSNSAVE_FILESP, Saves a file specification string 
DBGSNSAVE_STRIN Pick up string 


DBGSSCR_SCREEN_N 


LIBSFREE EF, 
LIBSGET EF, 


BGSPRINT: NOVALUE, 
ORMAL: NOVALUE, 
BGSSTA_LOCK_SYMID: NOVALUE, 
BSATTACH 


Construct a syntax error message 
Output routine 

Set screen to normal in screen mode 
Lock symid List 

Do the actual ATTACH to a process 
Free up and event-flag 

Allocate an event-fla 

Do the actual SPAWN of a subprocess 


LIBSSP 
SMGSSET_KEYPAD_MODE; 


—— 
DBGSGB_KEYPAD_INPUT: BYTE, 


Set terminal to numeric/application mode 


oO 


G : 
DBGS$GL~CISHEAD s REF CISSLINK, 
DBGSGV~CONTROL: DBGSCONTROL_FLAGS, 
DBG DLER 


** head of command input stream 

' Last known user error status 

' DEBUG control bits 

! Address of exit handler for SMG routines 


2 ' Set if mode is KEYPAD 
DBGS$GL-KEYBOARD_ID, i Used by SMGSSET_KEYPAD_MODE 
DBG$GB_LANGUAGE: BYTE ! The current language setting 
DBGSGB-RADIX —: VECTOR f3, BYIEI, | Radix segtings 
DBG$GB-DEF OUT : VECTOR C,BYTE], § "  ' output configuration structure 
DB OGFAB BLOCK C,BYTE), i oN ' FAB for log file 

t 
‘ 
' 


LITERAL 
NOWAIT_FLAG = 0; 


GLOBAL LITERAL 
DBGSK_MAX_PR_NESTING = 10; 


Flag position for /NOWAIT 


GLOBAL 
DBGSGL_PR_NEST LEVEL: INITIAL(O), ! Level of nesting of @ procedures 
DBGS$GL-PARAM_ COUNT: ! recquoter count for each procedure 
VECTORC1+DBG$K_MAX_PR_NESTING 
INITIAL(REP 1¢BBGSR_MAX_PR_NESTING OF (0)); 
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11 | 
GATSIGN Bose 1984 23:52:11 AX-11 Bliss-32 V4.0-7 P 4) 
vos 12-8081 882 $3332: 4) DEBUG. SRCISBGATSIGN.0455 1 ote (2) | 
H The following macro is just an abbreviation for some error-reporting 
code that occurs repeatedly 
MACRO report error = 
BEG! 


1 
1 
1 
1 
1 
1 message _vect = ( 
: If dBg$nmatch (.input_desc, dbg$cs_cr, 1) 
1 
1 
1 
1 
1 


gg PUrmake_org_vect (dbg$_needmore) 


dbg$nsyntax_error (dbg$nnext_word (.input_desc))); 
ceovne stsdk_severe; 


Ss a SH 
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elas 


s } 7 6 } GLOBAL ROUTINE DBGSNPARSE_AT_SIGN (INPUT_DESC, VERB_NODE, MESSAGE_VECT) = 

: 4 5 2 1 !44 

; re 4 : FUNCTIONAL DESCRIPTION: 

3 146 o oy Parses an @ filespec command. The @ has already been recognized in the routine : 

; (146 7% «1! eproerse cae network. This routine merely aquires the filespec string 

> 146 cms and causes the noun node ( noun value ) field to point to the filespec which 
; 137 zg : } is stored as a counted string in dynamically allocated storage. 
; ; | 
: 149 8 ,} 
: 138 ih ! FORMAL PARAMETERS: 

: 130 8 1 } input_desc - The present command Line input descriptor 

3 136 8 58 ! } verb_node - The already existing command verb node 
3 18 0285 1! message_vect - The address of a longword to contain the 
; 155 6 a6 1! address of a message argument vector 
3 138 0287 1! 

; 6157 0288 1 ! IMPLICIT INPUTS: 
; 158 0289 1! 
s 19 0290 1! NONE | 
; 160 0291 1! 

; 161 bs3¢ 1 ! IMPLICIT OUTPUTS: 
; 166 0295 1! 

$ 1e7 O59¢ ' } On success, the appropriate command execution tree is constructed. 
3: «165 i347 1! On failure, a message argument vector is constructed 

> 166 0297 1! | 
3; 167 0298 1 ! ROUTINE VALUE: | 
; 168 0299 1! 

: 169 0300 1! An unsigned integer longword completion code 

: 170 0301 1 | | 
3; (171 B08 1 ! COMPLETION CODES: 
3 7¢ 0303 1! : 
aa |e 0304 1! sts$k_severe (4) - Error in parsing 

3 «6174 0305 1! 
3 175 0306 1! sts$k_success (1) - Successful parse 

; 176 0307 1! 
s rr $44 1 ! SIDE EFFECTS: 

s; ize 0309 1! 
3; 179 310 1! None 
3; 180 71647! 
3; «181 \§ 1 !-- 
3 Ht 1s FY 
3 314 BEGIN 
3: «6184 15 
; «185 1 MAP 

es 1 INPUT _DESC: REF dbg$stg_desc, 
; 18 18 VERB_RODE : REF dbg$verb_node; 

: 1S 26 D | 
as 1 dbg$cs_comma = UPLIT BYTE (1, dbg$k_comma), 
3: «6191 ¢ dbg$cs_cr = UPLIT BYTE (1, dbg$k_car_return) 

: 198 0 dbg$cs_left_paren = UPLIT BYTE (1, dbg$kleft_parenthesis) | 
; «(419 0324 dbg$cs_right_paren = UPLIT BYTE (1, dbg$k-right_parenthesis); 
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1 

1 LOCAL 

1 first_flag: BYTE, True first time around loop that 
1 collect Hye parameters. 

: Link, Used for building Linked lists 


A noun node 
True if there is a parenthesized 
parameter List. 


noun_node: REF Gbesnoun_node. 


paren_flag: BYTE; 


Create and Link a noun node 


noun_node = dbg$get _tempmen (dbg$k noun node size); 
verb_node Cdbg$l_verb_object_ptr] = .noun_node; 


} Get the filespec 
if NOT dbg$nsave_filesp (.input_desc, noun_node [dbg$l_noun_value], .message_vect) 
RETURN sts$k_severe; 


! Check for end-of-line. In this case, there are no parameters so just 
: return success. 


IF dbg$nmatch (,input_desc, dbg$cs_cr, 1) 
OR .input_desc Cdsc$w_length) Ea. 0 


RETURN sts$k_success; 
Now pick up the parameter List, if one is present. 


$ 


if _dbgSnmatch (,input_desc, dbg$cs_left_paren, 1) 

TRUE 

FALSE; 

Set a flag which is true only the first time around the Loop. 
first_flag = TRUE; 

: Loop through the List of parameters. 


aren_fla 
se” -'tag 


paren_flag 
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5 06 : 
WHILE TRUE DO 
i 8 BEGIN 
4 4 Allocate space for a new noun node. 
41 7 Link = noun_node Cdbg$l_noun_Link]; 
° ih noun_node = dbg$get_tempmem Cdbg$k_noun_node_size); 
re] fe } Attempt to read a parameter. 
4 4 if NOT get_param (,input_desc, . aren flag. 
78 noun_node Edbg$l"noun.va ue) 
79 THEN 
80 4 BEGIN 
81 4 
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3 1 § 4 ! The only way this can Legally fail is aF00 () 

; § ? : ; (no parameters). Check for this. 

; 4 5 4 IF’ .first_flag 

3 ‘ $ ? THEN 

: 8 4 ! If there had been an opening paren, then make sure we 

‘ : 8 ? collect the closing paren die 

; 260 0391 4 iF .paren_fla 

; 3 5 38 4 * Not phe tch (.i d dbg$ igh 1) 
: nmatch (.input_desc, cs_right_paren, 

3; 6 94 4 THEN ° ite . me 

> 264 8 95 2 /e BEGIN 

; 265 96 emessage_vect = dbg$nmake_arg_vect (dbg$_unmtchparn); 
> 266 8 97 2 RETURN sts$k_severe; 

; 267 398 

> 268 0399 4 ELSE 

; 269 0400 4 EXITLOOP; 

; 270 0401 4 

3; 271 0402 4 ! If we get here, we have read a separating comma, but we have 
: 27 0405 4 ! failed to read the next parameter (E.G., aF00 A,) 

s ef 0406 4 ' This is therefore an error. 

; 276 0405 4 : 

; 275 04 4 -message_vect = 

; a ot é UF dbg$nmatch (.input_desc, dbg$cs_cr, 1) 

3 4 84 ; gg POMnnake_org.vect (dbg$_needmore) 

3 $80 0411 4 dbg$nsyntax_error (dbg$nnext_word (.input_desc))); 
> 281 pels 4 RETURN sts$k_severe; 

A Se 041 END; 

; 0414 : 

> 284 0415 ! Set first flag to FALSE for next time around. 

3; 285 0416 : 

; 286 0417 first_flag = FALSE; 

: 287 0418 

; 288 0419 ! We must have succeeded in reading a parameter. Thus, Link in 

; 289 Be 0 ! the noun node. 

; 290 421 : 

: 291 04 § link = .noun_node; 

3 4 04 

: 2 04 3 Attempt to read a comma, which separates parameters. 

3; 295 426 IF NOT dbg$nmatch (.input_desc, dbg$cs_comma, 1) 

3 39 8 7 THEN 

; 298 04 § ! If we fail, check for the closing paren, if an opening 

3 +4 4 paren was present. 

; 4 " § IF .paren_flag 

3 08 4 IF NOT dbg$nmatch (.input_desc, dbg$cs_right_paren, 1) 

: 304 435 THEN 

3; 305 4 4 BEGIN 

: 306 fe 4 emessage_vect = dbg$nmake_arg_vect (dbg$_unmtchparn); 
; 307 438 4 RETURN sts$k_severe; 


Page 
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END 
ELSE 
EXITLOOP 


! The lack of a separating comma indicates the end of the 
parameter list, so we just exit the loop. ! 


Ww 
ow 
a 


EL SE 
EXITLOOP; 
END; ! of WHILE Loop 
! The command execution tree, containing a noun node with the filespec 
' and a noun node for each parameter, has been constructed. Thus, we 
just return success. 
RETURN sts$k_success; 


END; ! End of dbg$nparse_at_sign 
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-TITLE DBGATSIGN 
IDENT \v04-000\ 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


2C 01 Q0000 P.AAA: .BYTE 1, 44 
OD 01 00002 P.AAB: .BYTE 1, 13 
$3 01 00004 P.AAC: .BYTE » 40 


~-PSECT DBGSGLOBAL,NOEXE, PIC,2 
00000000 00000 DBGSGL_PR cesT ve 
000000004 00004 DBGS$GL_ pAnAne COUNT: 


“LONG OC11) 
SOSEE AAR _PR JEST INOoS 
DBGSCS_COMMA= P.AAA 


DBGS$CS_CR= P.AAB 
DBGSCS_LEFT _PAREN= p° AAC 
DBGSCS “Rat ‘wi P. AAD 

RN DBGSDEF_PR_ENTRY 


TRN DBGSD DEF SV AA ADD 
N Seeter nen FI 
N SGET“MEMORY, DBGSGET_TEMPMEM 
RN SNCIS_ADD 6BGSNCIS_OPENICF 
TRN DB GSNCIS REMOVE 
N DBGSNCO Bye DESC. DBGSNEWL INE 
RN DBCSNGET SYMID, DBGSNMAKE ARG_VECT 
EXTRN DBGSNMATCH, MOBESNNEXT WOR 6 
XTRN DBGSNPARSE ADDRESS 
XTRN DBGSNPAR ARS “EXPRESSION 
EXTRN DBGSNREAD_RAME, DBGSNSAVE _BREAK_BUFFER 
EXTRN DBCSNSAVES “DECIMAL_INTEGER 


08 


000000006 


i 


O3FC 00000 
59 000000006 9E 00002 
28 000000006 E 00009 
00000000° 9E 00010 
. 0001 
69 001 
53 001 
50 08 001 
AO 00 


oc 
52 04 


ene 


VOM PUPuyur 
MRAIDNLEMOM DW ON MOOMOOM SWI OO 


oO 
io 
CoS 
OWI $AOWINOWOWOO 


OOA 


OO—OM NS OS -DWM"*DOwnnOoooVocVvVvIT"VO OO 
OMOof OOS 79 Ww ODDS - OHWooVTvVCCooeo 


0 
0 
000 
00 
00 
000 
000 
000 
oa 
0084 004 
6s 2 38 
0 004 
009 004 
cs 65 O04 
01 $6 
02 A? 3 
s 
68 2 0 
gS Sab 
Ge 1 bone 
bow HEB 
9 1 4 Bet 
$3 9 eS a978 
7E 4 9A 7 


1$: 


g§: 


ons 
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1986 93:16:44 


AX-11 Bliss-32 Fagg 
DEBUG. SRC JDBGATSIGN.B832;1 


DBGSNSAVE _FILESP 
DBGSNSA AVE STRING 
DBGSNSYNTAX ERROR 
DBGSPRINT, DBGSSCR_SCREEN_NORMAL 
DBGSSTA LOCK_SYMID™~ 

L186 TCH, CIBSEREE FF 
t EF, LIB$S 


* PAWN 
on T KEY tPA De 
-REYPAD INPUT 
oKE YBOARD ID 
DBG$GB_RADIX Ab, bBG86 DEF OUT 
GC 


DBGS$GL =LOGE AR woe CISHEAD 
DBGSGL-EXIT 


aw 
Qaavee 


DBGSGV a DBGSGL_ SMG_EXIT_HANDLER 


DBGSCODE,NOWRT, SHR, PIC,0 


DBGSNPARSE_AT_SIGN, Save R2,R3,R4,R5,R6,R7,-; 


DBGSGET_TEMPMEM, R9 
DBGSNMATCH, RS 
mes CR, R7 
, DBGSGET_TEMPMEM 
Ro, NODE, RO 
NOUN"NODE, 8(RO) 
MESSAGE vECT 
INPUT_DESC, R2 
#3, DBGSNSAVE_FILESP 
RO) 1$ 
13§ 
#1 
#OMCR 
#3, “Dgesnnarcn 
Reg 
(R2) 
2$ 
#1 
* pee _LEFT_PAREN 
 DBGSNMATCH 
#1. PAREN_FLAG 
PAE htt ag 
BAS), L LINK 
#1, DBGSGET_TEMPMEM 
RO; NOUN NODE 


NOUN. NOD 
PARER_FLAG, =(SP) 


Pee Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Ge Ge Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Be Be 


a 


; Routine Size: 


327 


237 bytes, 


0458 


1 


Routine Base: DBGSCODE + 0000 


1 
1 
DO 7A 
0000v i 4 i 
D 4 € 7 
1 DOD A 
6 0084 F +4 
88 0 £9 0009 
00028000 F DD 00096 
ae 
000000006 00 0 4 BRA 
000000006 00 1 FB QOOA9 
F 11 p88 
3 94 0008 
66 53 DO 00084 
01 DD 00087 
FE A? 9F Q000B9 
38 DD geet 
68 0 fe OOBE 
AS 50 €8 000C1 
22 54 €9 000C4 
01 DD 000C7 
04 A? 9F Q00C9 
¢ DD Bao ce 
$8 0 4 OOCE 
1 50 €8 000D1 
00028700 8F ODD OS ODA 
000000006 00 01 FB QOODA 
oc «BC 50 DO 000E1 
50 04 DO O00ES 
04 QO0E8 
50 01 D0 000E9 
04 OOOEC 
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2-808-138e 93:72:41 DEBUG. SRCTDBGATSIGN.035;1 
PUSHL R 
CALLS #3, GET_PARAM 
BLBS 
BLBC =—s-FIAST_FLAG, 7$ 
BLBS § PAREN-FLAG, 108 
7$: PUSHL #1 
PUSHR #*M<R2,R7> 
CALLS #3, DBGSNMATCH 
LBC 
PUSHL #164048 
RB 11$ 
8$: PUSHL Re 
CALLS #1, DBGSNNEXT_WORD 
PUSHL 
CALLS #1, DBGSNSYNTAX_ERROR 
9$: CLRB = FARST_FLAG 
MOVL NOUN_RNODE, (LINK) 
PUSHL # 
PUSHAB DBG$CS_COMMA 
PUSHL 
CALLS #3, DBGSNMATCH 
BLBS 
BLBC  PAREN_FLAG, 14$ 
10$: — PUSHL 
PUSHAB DBGSCS_RIGHT_PAREN 
PUSHL 
CALLS #3, DBGSNMATCH 
LBS)SséR 
PUSHL #165840 
11$: CALLS #1, DBGSNMAKE_ARG_VECT 
128: MOVL RO, @MESSAGE_VECT 
13$:  MOVL #4. RO 
RET 
14$:  MOVL #1, RO 
RET 
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VERB_NODE = The command verb node which is the start of the command 


execution tree. 


MESSAGE_VECT = The address of a longword to contain the address of 
On failure of this routine, 


@ message argument vector. 
a@ message argument vector is returned to this parameter. 


OUTPUTS 
a eatguee integer longword completion code is returned as the routine 
value: 


STSSK_SUCCTSS (1) = Indicates the file was created and connected 
STSSK_SEVERE (4) = Failure, file not created. Message argument vector returned 


Pp 
VERB_NODE: REF DBGSVERB_NODE; 


LOCAL 
FAB_ PTR: REF SFAB_DECL, 
NOUN _NODE: REF DBGSNOUN_NODE, 
PARAM_COUNT 


PARAM-NAME: REF VECTORC,BYTE), 


RAB_PTR: REF $RAB_DECL 
REPCACED_FLAG, 


VALARRAY: REF VECTORC,LONG), 
VALPTR: REF DBGSVALDESC; 


: Obtain the Noun Node for the file name of the indirect command file. 


14-Sep-19 
GLOBAL ROUTINE DBGSNEXECUTE_AT_SIGN (VERB_NODE, MESSAGE_VECT) = 


i FUNCTION 

This routine begins execution of an @ filespec command. 
and a RAB are allocated for the indirect command file, and calls are 
made to add the file to the command input string and connect the file. 


12 
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BYTE (*DEBUG.COM’), 
OUNT (*DEBUG.COM'); 


! Pointer to input Verb Node 


Pointer to ICF FAB 
Pointer to command Noun Node 
Count of number of parameters 


Pointer to ASCIC name of parameter 
RAB 


Pointer to IC 


Returned syaber replaced flag from 
DBGSDEF_SYM_ADD (value not used) 
Pointer to value field in the Value 


sooes tater for ZPARCNT 
Pointer to 


NOUN_NODE = .VERB_NODECDBGSL_VERB_OBJECT_PTR); 


: Allocate a FAB and a RAB for the command file and initialize them. 


FAB_PTR = DBGSGET_MEMORY ((FABSC_BLN + 
RAB-PTR = DBGSGET-MEMORY ((RABSC_BLN + 
SFAB_INIT (FAB=.FAB_PTR, FAC=GET, FNA=.NOUN_N 


3} / ZUPVAL); 
) / ZUPVAL) 


That is, a FAB 


alue Descriptor we build 


U 7 
ODE CDBGS$L_NOUN_VALUE) + 1, 


12 
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H P 16 FNS=.(.NOUN_NODE CDBG$L_NOUN veyed) <0, 8, 0>, 

3 1 DNA=DEFICF _RAME, DNS=DEFICF_SIZE); 

: 388 i SRAB_INIT (RAB=.RAB_PTR, FAB=.FAB_PTR); 

3 31 : 1 } Place the ICF on the command input stream. 

3 38 5 5 iF NOT DBGSNCIS_ADD(.RAB_PTR, 0, CIS_RAB, 0, 0, 0, .MESSAGE_VECT) 

: 395 358 RETURN STSSK_SEVERE; 

8 Be 

: oS : 3 } Set up the local define List for the procedure. 

3 400 03 9 iF NOT DBGSDEF_PR_ENTRY(.MESSAGE_VECT) 

; 40 5 RETURN STSSK_SEVERE; 

ie 8 

; 405 0535 ! Add the parameters to the local define list. To do this, we loop through 
; <68 b2 $ the remaining Noun Nodes to get the parameter pointers. 

: 408 0538 PARAM COUNT = 0; 

; 409 0539 NOUN_RNODE = .NOUN_NODECDBG$L_NOUN_LINK); 

: 410 0540 WHILE .NOUN_NODE REQ 0 DO 

3 6411 gees BEGIN 

: 43 ae 

: 414 0544 ! Increment the parameter count to give the parameter number of the 

3 «64415 0545 ! present parameter. Then obtain the name for this parameter and add 
: et B2e8 } the parameter to the parameter List for the current command file. 

: 418 0548 PARAM_COUNT = .PARAM_COUNT + 1; 

3; 419 0549 IF NOT DBGSCONSTRUCT~PARAM_NAME (.PARAM_COUNT, PARAM_NAME, TRUE, 

: ogy Been — MESSAGE _VECT) 
; 432 O55¢ RETURN STSSK_SEVERE; 

; 424 b3a7 IF NOT DBGSDEF _SYM_ADD(.PARAM_NAME, DEFINE PARAMETER, 

; 425 0555 .NOUN_RODETDBGSL_NOUN- VALUE), FALSE, 

: rt b2e6 a REPLACED_FLAG, .MESSAGE_VECT 

; 428 0358 RETURN STSSK_SEVERE; 

; 439 0360 IF .REPLACED_FLAG THEN SDBG_ERROR(*DBGATSIGN\DBGSNEXECUTE_AT_SIGN"); 

: 43 56 

: $32 Os68 Get the Noun Node for the next parameter and loop. 

3 435 565 NOUN_NODE = .NOUN_NODECDBGSL_NOUN_LINK); 

3; 4 266 END; 

; 38 36 

: 639 569 ' Build a Value Descriptor to hold the integer value that gives the number 
3; 440 570 ! of parameters to the indirect command file we are opening. Then create 
3 «441 B25) ! a local DEFINEd symbol called ZPARCNT in the scope of this indirect com- 
3 442 572 ! mand file. This symbol gives the number of parameters to the indirect 
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betsy 73:48:34 — EdteuG. SacSbecarsiGn.633; 1 Pace (13 


H command file when referenced by the user within the command file. 
VALeTR = DBGSGET Panos y (esse aoe BASE. SIZE + 4); 
ALPTROED YPE) 


G$B_DH DBGSK E-D 
VALPTR DBGSW_DHDR-LENGTH H) = (D cee LVACDESC’ BASE_SIZE + 4)*ZUPVAL; 
VALPTRLDBGS$B_DHDR_FCODE) = o Reis K_T TYPE-A TOMIC; 
VALPTRLDBG$B_DHDR_KINDJ) = RST ATA;~ 
VALPTRUDBGS$B8_DHDR-LANG) = wits 4 =LANGUAGE ; 
VALPTRUDBG$B_VALUE_CLA Ass) = DSCSK-CLASS_ : 
VALPTREDBG$B_VALUE_DTYPE) = DSCSK-DTYPE_L 
VALPTR GSW_VALU E =bENGTH) = 4; 
VALPTR L-V ALY Fs POINTER] = VALPTRE acs _VALUE_ADDRESS]; 
VALARRAY = VALPTRUDBGSA_VALUE_ADDRESS 
VALARR ] a ebabes COUNT; 


R| 
CHSMOUE CB UPLIT GSGET MEMORY (2) "SPARCNT') PARAM NAMECOI) : 
IF NOT DBGSDEF_SYM_ADD(.PARAM_NAME , DEF FINE_VALOE Ptr, 
PaLsee “REPLACED. VELAG. .MESSAGE_VECT) 


THEN 

RETURN STSSK_SEVERE; 
! Open the specified indirect command file as the current input file. 
Then return. 


iF NOT DBGSNCIS tea MESSAGE_VECT) THEN RETURN STSSK_SEVERE; 
RETURN STSS$K_SUCCESS 


END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
4F 43 2E 55 42 45 4&4 00008 P.AAE: .ASCII \DEBUG.COM\ ; 
49 53 4 41 47 42 44 1€ 00011 P.AAF: .ASCII <30>\DBGATSIGN\<92>\DBGS$NEXECUTE -ATLSIN 3 
45 54 55 45 58 45 4E 00020 : 
rt 47 Ht43 ASCII $ 
54 4E 43 52 41 50 25 07 00030 P.AAG: -ASCII SN sparcnT\ ; 
DEF ICF_NAME= P.AAE 
DEF ICF-SIZE= 9 
.PSECT DBGSCODE,NOWRT, SHR, PIC,0 
OFFC 00000 ENTRY DEGSNEXECUTE _AT AT SIGN. Save R2,R3.R4,R5,R6,~ ; 
B 000000006 00 9€ 9002 MOVAB SS er ahh Ro. R11 : 
A 99000000" F 9E 000 MOVAB DEF ic E> R ; 
9 000000006 0 9 0019 MOV D 6 GET _MEMORY, R9 : 
C 1 SUBL : 
5 04 AC D 0 1A MOVL ‘ si SNODE, RO : 
5 08 AO D 1 MOVL J, NOUN_NODE : 
14 DD 0 PUSHL : 
9 1 fe 024 CALLS . © BGSGET_MEMORY 3 
6 0 00 00027 MOVL RO; FAB_PTR : 


Be 


4 23:52:11 AX-11 Bliss-32 V4.0-74 Page 14. 
127808-198¢ 93:78:41 DEBUG. cRCTOBCATSIGy.045;1 - onl 
11 DD A PUSHL #17 : 0514. 
1 FB C CALLS #1, DBGSGET_MEMORY : 
9 p F MOVL RO, RAB_PTR : 
0 ¢ 2 MOVCS #0, (SPT, #0, #80, (FAB_PTR) + 0517) 
5003 F 9 A MOVW #204 (FAB_PTR) : 
MOVB #2, 22(FAB_PTR) : | 
04 MOVB. #2, 31(FAB-PTR) : | 
gi 4 ADDL3 # NODE), 44(FAB_PTR) : | 
6A 4 VAB  DEFICF_NARME, 48(FAB_PTRY : | 
00 8 9 5 MOVB a (NOUR DE), 52(FAB_PTR) : 
3 9 MOVB , 53(FAB PTR) : | 
9 C 059 MOVCS #0, (SP), #0, #68, (RAB_PTR) + 0518) 
4401 i BO 00061 MOVW #17409, (RAB_PTR) : 
6 DO 00066 MOVL FAB_PTR, 60(RAB_PTR) : 
08 AC 00 0006A MOVL § MESSAGE_VECT, R6 + 0523 
36 D 006 PUSHL  R6 : 
— 7C 000 CLRQ.  =(SP) : 
01 70 9007 MOVa #1, =(SP) : 
ze D4 0007 CLRL 0s = ¢ §P) : 
57 DD 9007 PUSHL RAB_PTR : 
000000006 00 07 FB 00079 CALLS #7, DBGSNCIS_ADD ; 
™ 28 ED bons him mS ; esse} 
000000006 00 01 FB 00085 CALLS #1, DBGSDEF_PR_ENTRY : 
- 3 EF boosts eet OBARAAT COUNT : 538) 
58 08 A 0 0d 1$: MOVL (NOUR_NODE), NOUN_NODE : 0539 
3 13 00095 BEQL : 0540 
2 db 00097 INCL § PARAM_COUNT : 0548 
56 (OD 90099 PUSHL R6 : 0550 
01 DD 00098 PUSHL #1 : 0549 
08 AE 9F 0009D PUSHAB PARAM_NAM : 
52 DD O00A0 PUSHL PARAM~COUNT ; 
0000v CF 04 FB O0Ag CALLS #4, DBGSCONSTRUCT_PARAM_NAME ; 
” 30 EF OOOAA 7 A le : 0556 
08 aE OF ODAC PUSHAB REPLACED_FLAG : 0554 
7E 04 OOOAF CLRL = = (SP) ; 
68 DD 9081 PUSHL  (NOUN_NODE) : 0555 | 
06 DD 00 83 PUSHL 4&6 : 0554. 
14 AE 0D 0008 PUSHL PARAM NAME 3 
06 F 0088 - CALLS #6, DBGSDEF_SYM_ADD : 
CF 04 AE 4 008 LBC _—- REPLACED_FLAG, 1$ : 0560 
7M Bh gate pista a : 
00028362 Br DD 000C PUSHL #164706 : 
000000006 00 3 FB cD CALLS #3, LIBSSIGNAL 3 | 
B bp 00006 38 Brea, wi2 + $382 
69 a: 3 CALLS #1, DBGSGET_MEMORY : 
7 0 p DB MOVL R VALP F 
02 A? 7A —saBEF OF MOVE #122, 2(VALPTR) ; 0576 
67 0 8B E MOVW #48, (VALPTR) : 0577 
06 A? 0602 BF B £6 MOVW #1588, 6(VALPTR) : 0578 


3; Routine Size: 
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#1, DBGSGET_MEMORY 
#8, P.AAG, @PARAM_NAME 
REPLACED_FLAG 

SP) 
VALPTR 
ARAM_NAME 
#6, DEGSOEF _SYM_ADD 
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GLOBAL ROUTINE DBGSNPARSE_ATTACH (INPUT_DESC, VERB_NODE, MESSAGE _VECT) = 


DBGATSIGN.B32;1 


Parses the ATTACH command. The ‘ATTACH’ has a 
ed by the top-level parse routine. This routine picks 
nteger argument and constructs a command execution tree. 
tree has the verb node for ATTACH, and a noun node with 


the integer argument. 


- A string descriptor for the remaining command Line 
- The already existing verb node. 
- The address of a message argument vector. 


I IOOOO 
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The return value is one 


of: 
STSSK_SUCCESS = Success. A command execution tree was 


- Failure. An error message vector is 


tattcttdtattttttttt ttt 


MAP 
INPUT DESC: REF DBGS$STG_DESC, 
VERB_NODE: REF DBGSVERB_NODE; 


So 
o 


tots 


WWAWWWNIAW A 


= UPLIT BYTE (1, DBGSK_CAR_RETURN) ; 


o 


Check for end-of-line. This is an error. 
if .INPUT_DESC CDSC$W_LENGTH] EQL 0 
THEN 


o 


tot totots 


BEGIN 
»MESSAGE _VECT = DBGSNMAKE_ARG_VECT (DBG$_NEEDMORE) ; 
— STS$K_SEVERE; 


Fp eeoare (. INPUT_DESC, DBGSCS_CR, 1) 


3353333335 


ONOUNE WO OONOUS WN Oo 


CT = DBGSNMAKE_ARG_VECT (DBG$_NEEDMORE) ; 


SES 


with the process name. Put a pointer to the 


if NOT DBGSNSAVE_STRING(. INPUT DESC 


PROPIPOPOPONEPOPI INI ERIOPOPI INI PUPP 2 ts 


PAAAMVIVIVIW 


BVERB_PTR], .MESSAGE_VECT) 


¥ 12 
GATSIGN - © s- - 
vOr~000 esse 19g f3:t6:s4  EogauG. SRcHacarsitan.039; 1 
H 5 THEN 
: ; é RETURN STSSK_SEVERE; 
¢ : Return success. 
; 399? —_ STSS$K_SUCCESS; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
OD 01 00038 P.AAH: .BYTE 1, 13 
DBGSCS_CR= P.AAH 


-PSECT DBGSCODE.NOWRT, SHR, PIC,0 


0004 00000 eENTRY peaeaect ATTACH, Save R2 
52 04 ac DO 00002 MOVL § INPUT_DESC> R2 
62 8B 0006 TSTw © (R yy 
14 13 0000 BEQL 
01 4 44't4 PUSHL #1 
00000000' EF F 900¢ PUSHAB DBGSCS_CR 
: DD 0001 PUSHL 
000000006 0 g FB 00014 CALLS #3, DBGSNMATCH 
1 0.€ 90018 BLBC 
00028000 8F DD OOO1E 18 PUSHL #ib4 48 
000000006 00 1 FB 00024 CALLS DBGSNMAKE_ARG_VECT 
0c BC 30 00 208 8 MOVL RO: @MESSAGE_VECT™ 
OC AC DD 00031 28: PUSHL MESSAGE_VECT 
7E 08 AC 9% C1 B28 ADDL #4, VERB NODE, -(SP) 
: DD 00039 PUSHL R 
000000006 00 03 FB 0003B CALLS #3, DBGSNSAVE_STRING 
4 LBS.—séRO 
% de 60 00068 38: AONE BeL RO 
04 Oo048 RET . 
50 01 B0 0049 4$: MOVL #1, RO 
4 0004C RET 


3; Routine Size: 77 bytes, Routine Base: DBGSCODE + 022A 


13 
vOs-000 HESeoct9Ge GESRESAL  YABSUL SUISsadZ Vieds3. dened” 4 


: 4 004 } GLOBAL ROUTINE DBGSNEXECUTE_ATTACH (VERB_NODE, MESSAGE_VECT) = | 
; 4] ees i FUNCTIONAL DESCRIPTION: | 
; “8 of ! ; This routine executes an ATTACH command. | 
; 45 78 | FORMAL PARAMETERS: 

: $47 675 1: verb_node - The command verb node which is the start 

: rt 278 : } of the command execution tree 
: 550 O68 1 / message_vect - The address of a longword to contain the 

; 3 bene : address of a message argument vector 
; 3g 0681 1 | IMPLICIT INPUTS: 

; 5546 6 g 1! 

3 $2? Bos 1! NONE 
3 336 684 1! 
$ eee bene : IMPLICIT OUTPUTS: 

: 559 0687 1! On failure, a message arqument vector is returned 

; 560 0688 1! 
; 561 0689 1 ! ROUTINE VALUE: 
3 206 0690 1! 

; eer bea, : An unsigned integer longword completion code 

: 565 0693 1 | COMPLETION CODES: | 
; 566 0694 1! | 
; 202 pene ! sts$k_success (1) - Indicates the file was created and connected 
; 29) +244 ! sts$k_severe (4) - Failure, file not created. Message argument vector returned 

: 571 0699 1 | SIDE EFFECTS: | 
3 ar¢ 0700 1! 
ie BY 
ae Ey gon were 

: 577 0705 MAP 

; 278 me VERB_NODE: REF DBGS$VERB_NODE; 

: 580 $708 LOCAL 

; 581 0709 EVNT_FLAG, ! Event flag number 
: oB¢ 710 ITEM: BLOCK (3,LONG), ' Item List for S$GETJPI 
3 711 PID, ' Process id 
3; 584 ar PNAME: REF VECTORC,BYTE), ! Pointer to counted string 
; 585 071 ! with process name 
3 256 Brie STATUS ' Return status from LIBSATTACH 
: 587 715 STG_DESC: BLOCK(8,BYTEI, ! String descriptor with name 
Py 88 pris xX; | 
; 389 71 
3 90 0718 
: go Ah, : Obtain the process name of the process we are to attach to. 
: 38 721 PID = 0; 

3 94 7 § PNAME = ,VERB_NODE CDBGSL_VERB_ADVERB_PTR); 

: 595 7 STG_DESCEDSC$B_CLASS) = DSC$K_CLASS_S; 


ees 
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; 38 724 STG_DESCCDSCSB_DTYPE] = DSCSK_DIYPE_T; 

s 39 725 STG_DESCLDSC$W_LENGTH) = PWARE Ld: 

: eB f § STG_DESCLDSCSA_POINTER] = PNAMEL1); 

; 600 7 8 

: st 8? 3 Obtain the process id of the process we are to attach to. 

: 60 731 STATUS = LIBSGET_EF (EVNT_FLAG); 

; 604 3 ¢ IF NOT a | § TREN SIGNAL(.STATUS); 
; 605 97 CHSFILL(O, 12, ITEM); 
; 606 734 STATUS = $GETJPI(EFN=.EVNT_FLAG, PIDADR=PID, PRCNAM=STG_DESC, ITMLST=ITEM); 
; 60 735 IF NOT .STATUS 
; 608 7 $ THEN 
; 609 7 EGIN 
: 610 738 LIBSFREE_EF (EVNT_FLAG); 

; 611 8 9 SIGNAL (DBG$_GETJPI, 0, .STATUS); 

; ol¢ 740 END; 

3 61 0741 

; 6146 ares SWAITFR(EFN = .EVNT_FLAG); 

3 615 074 LIBSFREE_EF (EVNT_FLAG); 

; 616 0744 

; 617 0745 

; 618 C746 ! Reset the terminal screen to ‘‘normal’’ if we are in screen mode. This 

; 619 0747 ! makes sure that the whole terminal screen scrolls when we are in the 

3 $30 toe 4 other process and that the screen is refreshed when we reenter DEBUG. 

3 oc¢ 0750 DBGSSCR_SCREEN_NORMAL () ; 

3 6 0751 

3; 624 B8¢ 2 

; 625 075 ! Signal that we are about to do an attach. Do the attach. Signal an 

: os6 0754 ' error if it fails. 

: 627 0755 } 

; 628 0738 SIGNAL (DBG$_ATTACHED, 1, .PNAME); 

F 629 075 ‘ STATUS = LIBSATTACH(PIDS; 

; ot 1634 IF NOT .STATUS THEN SIGNAL(DBG$_NOATTACH, 0, .STATUS); 

; 632 0760 ! After returning from the attach, set the terminal back to 

$ 633 353 } the appropriate mode. Then return. 

; 635 b768 IF ,DBG$GB_KEYPAD_INPUT THEN X = 1 ELSE X = 0; 

; 636 0764 SMGSSET_KEYPAD MODE (DBGS$GL_KEYBOARD_ID, X); 

; 637 0765 RETURN STS$K_SOCCESS; 

; 638 0766 1 END; 


-EXTRN SYSSGETJPI, SYSSWAITFR 
03FC 00000 ~ENTRY POCERERECUTE ATTACH, Save R2,R3,R4,R5,R6,- ; 0667 


59 000000006 00 9E 4 MOVAB LIBSFREE_EF, R9 ; 
58 000000006 00 25 000 MOV LIGSSIGNAL.. R8 ; 
SE oc Big SUBL #32, SP : 
4 AE 04 1 CLRL PID ; ors) 
29 4 Ac D 16 MOVE VERB_NODE, RO ; 0722 
4 AQ DO QOOIA MOVL 4(RO), PN 3 
OE AE 010 8F 80 OOOTE MOVW #270, STG_DESC+2 : 0724 
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12-8 08-138e 93:36:44 DEBUG. SROIDBGATSIGN.039; 1 . (BS | 
0 AE 67 9B 4 MOVZBW (PNAME), STG_DESC : 0725. 
16 AE 01 a7 + 8 ROVAB UR?) §16_DESC+4 : ed 
000000006 00 1 F F CALLS #1, LIBSGET_EF : 
& 0 D MOVL RO, STATU : 
5 6 £ BLBS STATUS, 1 : 0732. 
6 DD C PUSHL STATUS : 
68 oi FB 000 é CALL #1, LIBSSIGNAL : | 
0c 00 6E ‘ 00 2c 90% 1$ MOVC #0, (SP), #0, #12, ITEM : 0733, 
7E 7C 0048 CLRQ = =( SP) > 0734) 
7E ps O06A CLRL -(SP) : 
20 AE OF 4C PUSHAB ITEM : 
1C AE 9F O004F PUSHAB STG_DESC 3 | 
18 AE OF 90059 PUSHAB PID : | 
18 AE DD 9003 PUSHL EVNT_FLAG 3 
000000006 00 07 FB 00058 CALLS #7, SYSS$GETUPI : 
56 50 09 0005F MOVL RO, STATUS 3 
12 56 CE 90062 BLBS STATUS, 2$ : 0735. 
SE DD 0006 PUSHL SP ; 0738) 
69 01 FB 00067 CALLS #1, LIBSFREE_EF : 
56 DD 0006A PUSHL STATUS ; 0739. 
7E 34 0006C CLRL -(SP) 3 
00028A2A 8F DD 0006E PUSHL #166442 3 
68 03 FB 00074 CALLS #3, LIBSSIGNAL 3 
6E 0D 00077 2$ PUSHL € 3 0742 
000000006 00 01 FB 00079 CALLS #1, SYSSWAITFR : 
5E DD 00080 PUSHL SP 3 0743 
69 01 FB 00082 CALLS #1, LIBSFREE_EF : 
000000006 00 99 FB 90085 CALLS #0, DBGSSCR_SCREEN_NORMAL ; 0750 
57 DD 0008C PUSHL PNAME : 0756 
01 OD 90086 PUSHL : 
000286FB 8F DD 000 PUSHL #165627 : 
68 03 FB 90096 CALLS #3, LIBSSIGNAL : 
04 AE 9F 00099 PUSHAB P : 0757 
000000006 00 01 FB 9009¢ CALLS #1, LIBSATTACH 3 
56 50 09 OO0A MOVL RO, STATUS 3 
0D 56 «C€ O0n6 BLBS STATUS, 3$ ; 0758) 
36 DD O00A9 PUSHL US : 
E D4 OOOAB CLRL. =(SP) : 
00028A22 8F ODD O0ap PUSHL #166434 : 
03 FB 00B CALLS #3, LIBSSIGNAL : 
06 000000006 00 €9 00086 3s: BLBC #$DBGSGB_KEYPAD_INPUT, 4$ ; 0763 | 
08 AE 01 b0 9080 MOVL i, x : 
5. 3 C BRB : 
8 AE dé 00C3 4$: CLRL X : 
8 AE F 90¢6 5$: PUSHAB X > 0764 | 
000000006 00 9F 000C PUSHAB DBGS$GL_KEYBOARD_ID : 
000000006 99 02 FB OOCF CALLS #2, SMGSSET_KEYPAD_MODE ; | 
0 01 DO 00006 MOVL #1, RO >; 0765 | 
04 00009 RET ; 0766 | 


3; Routine Size: 218 bytes, Routine Base: DBGSCODE + 0277 


—— eee 
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: oh rer ! GLOBAL ROUTINE DBGSNPARSE_SPAWN (INPUT_DESC, VERB_NODE, MESSAGE_VECT) = 

; ots 7 1 ! FUNCTION 

> 64 770 1! Parses the spawn command. The ‘‘SPAWN’’ has already been recognized in the routine 
> 6446 7) a8 dbg$nparse_cmd network. This routine merely aquires the argument string 
; 645 ore 1! and causes the noun node ( noun value ) field to point to the argument which 
; org ak : : is stored as a counted string in dynamically allocated storage. 

; 648 775 1 ! FORMAL PARAMETERS: 

; 649 ore 1! 

5 o29 O7¢ : INPUT_DESC = The present command Line input descriptor. 

3 $26 0779 : } VERB_NODE = The already existing command Verb Node. 

; 654 0781 1! MESSAGE_VECT = The address of a longword to contain the address of a 
; 655 br 88 1! message argument vector. 

> 656 0783 1! 

8 6o7 0784 1! 

; $39 $788 : ee yn d int l d leti d 

; : n unsigned integer longword completion code: 

eo Be Sapa Shenk Sabine ts peel | 
3 } a - Error in parsin 

: $62 0789 1 i 2 ie 

; 66 0790 1! STSSK_SUCCESS (1) = Successful parse 

; 664 0791 1! 

; 665 0792 #1 

; 666 079 BEGIN 

3; 667 0794 

; $69 $798 pik INPUT_DESC: REF DBGS$STG_DESC 

; 670 6799 VERB_NODE: REF DBGSVERB_NODE; 

; 671 0798 § 

; 67 0799 BIND 

3; 6 0800 § DBGSCS_NOWAIT = UPLIT BYTE (6, "NOWAIT'), 

; 4 0801 DBGSCS_CR = UPLIT BYTE (1, DBGSK_CAR_RETURN), 

3 (Of9 080 DBG$CS_DBLQUOTE = UPLIT BYTE (1, DBGSK_DBLOUOTE), 

; ore Oapz DBGSCS_SLASH = UPLIT BYTE (1, DBGSK_SLASH); 

; 678 0805 LOCAL 

3; 66? 0806 CHAR: BYTE, ! Holds a single character 

3 0807 ' Count of number of chars in arg 
3; 681 808 COUNTED_STRING: REF VECTORC,BYTEJ, | Points to a counted string 

3 rey) 809 ‘ holding the argument. 

3 ret 3319 FLAGS: BITVECTOR(32) ! Flags for /NOWAIT etc 

: 6 11 NOUN_NODE: REF DBGSNOUN_NODE, i A pointer to a noun node 

; 685 081 OUTPOT_PTR, ! Pointer into counted string 

3; 686 081 PREV_CRAR: BYTE ' Holds a single character 

; 687 0814 QUOTE_FLAG: BYTE; i TRUE if argument is quoted 

3; 689 pals 

3; 690 + 

; 691 18 ! Initialize flags. 

; 69 819 : 

; 69 0 FLAGS = 0; 

3 694 1 

; 695 § ‘ 

; 696 ! Collect qualifiers. 


F 13 
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; 697 4 ! 

; 698 5 WHILE DBGSNMATCH (.INPUT_DESC, DBGSCS_SLASH, 1) DO 

4 244 § BEGIN 

3 SELECTONE TRUE OF 

: f 1 8 SET 

; 708 5s 6 t /NOWAIT 

; 705 8 CDBGSNMATCH - INPUT_DESC, peoscs -NOWAIT, 3)]: 

3 pe 8 : PLAGSENOWAL? PPURGS = TRUE 

; 708 08 5 CDBGSNMATCH (.INPUT_DESC poets. tf.. 1 )): 

; £08 8 SIGNAL (DBG$_NEEDMORES ; 

: 711 0838 COTHERWISE): 

4 nNé 0839 SIGNAL (DBGS_ILLQUALIF); 

; 7% Bae 

:; 714 841 TES; 

3 «715 pee END; 

s 084 

s 717 0844 

: at pee? } Put the flags in the adverb field. 

: re O87 VERB_NODECDBGSL_VERB_ADVERB_PTR] = .FLAGS; 

: 13¢ 0849 

ae 0850 ! Check for end-of-line. If so, there was no argument to SPAWN. 
3 ise eth We do not allocate a noun node in this case. Just return success. 
; 726 bass if - INPUT _DESC CDSCS$W_LENGTH] EQL 0 THEN RETURN STS$K_SUCCESS; 
3 EAA oBee IF DBGSNMATCH (. INPUT “DESC, DBGSCS_CR, 1) THEN RETURN STSS$K _SUCCESS; 
; 729 0896 

3 4 ° 9 FH Create and Link a Noun Node. 

: 732 0859 NOUN NODE = DBGSGET_TEMPMEM(DBGS$K_NOUN_NODE SIZE); 

ee 0860 VERB_NODECDBGS$L_VERB_OBJECT_PTR] = .NOON_NODE; 

3; 734 0861 

3; 735 Baee 

; es] oee7 : Check whether the user has enclosed the argument in quotes. 
; 738 0865 if DBGSNMATCH(.INPUT_DESC, DBGSCS_DBLQUOTE, 1) 

: 740 7 QUOTE_FLAG = TRUE 

3 741 ee si 

: 74 0868 ELSE 

3 74 0870 QUOTE_FLAG = FALSE; 

3 744 9o7) 

3; 745 ars A 

$ 1h : Allocate space to store the argument string. 

; 148 875 COUNTED_STRING = DBGSGET_TEMPMEM(1 + (1 + .INPUT_DESCCDSCS$W_LENGTH])/4); 
: 750 e7 

s 751 8 ! Initialize some variables. 

; 23g fi ! 

. 0 CHAR = 0; 


Se 3:93:12 SLL Bhi90528, 2528-255... ne 


oo 


CHAR = CASRCHAR A(.INPUT_DESC CDSCSA_POINTER)); 
INPUT _DESCLDSCSO_LENGTH) = . INPUT_DESCCDSCS$W_LENGTH] - 1; 


NMR 


END; 
! Write the character to the output buffer and increment count 
of number of chars in output buffer. 
CHSWCHAR_A(.CHAR, OUTPUT_PTR); 
at &. cee SMe 


=—OOODNOUVUES WN “OO OONOUSWN OO 


AIO ROPOROPoNoNNY 


Fill in the count field. 


COUNTED_STRING (CO) = .COUNT; 


DOODOOOOOOODOOOOOOO0O0O0000N9 


: 7546 1 COUNT = 0; 

7 fo é ; OUTPUT_PTR = COUNTED_STRINGL1); 

; 7 4 

: o28 885 : Loop through the input, copying characters into the counted string. 

: 760 f WHILE .INPUT_DESCCDSC$W_LENGTH] GTR 0 DO 

: 761 : BEGIN 

; 76 8 

: ee 891 ! Get th t charact | 
; ! Ge e next character. 

; 765 0839 ! 

; 7 9 PREV_CHAR = .CHAR; 

; 0894 CHAR = CHSRCHAR_A (INPUT_DESC COSCS$A_POINTER)); 

; Ib 3 Baas INPUT_DESC COSCSW_LENGTH] = .INPUT_DESC COSCSW_LENGTH) - 1; 

ee ee 
Oe A A eps eee ee ern cepa 
3 ° L K URN THEN EX 3 
; 774 0901 VER ’ 

s 77> 44 

; 776 ! If argument was quoted, check for either doubled quotes or 

s @77 0904 ' closing quote. 

; 778 0905 ! 
; 779 0 IF .QUOTE_FLAG 

; 090 THEN 

; 781 0908 4 BEGIN 

: ree 0909 4 IF .CHAR EQL DBGSK_DBLQUOTE 

; fr 0910 4 THEN 

. F 0911 5 BEGIN 

3 re? 091 é 

; 787 5 ! Undouble double quotes if that is what we have. Otherwise, 

: ree H } we exit the quoted-string loop on the clonsing quote. 
3 790 2 IF .PREV_CHAR NEQ DBG$K_DBLQUOTE THEN EXITLOOP; 
; 5 

3 4 

| 


co 

oO 

st 
SSSSSSSSSSSSSSSSDOSSSOOOS 


BRAGS 


D009 0000 


— 2.3.3 3 3) 3 
SOOONOU SW 
ERERREREAA 
NOUS WIN —OOO 


Nm 


H Fill in the Noun Node. 


Return success. 
RETURN STSSK_SUCCESS; 


END: 


54 49 41 57 4F 
OD 


2 
F 


OFFC 00000 


5B 44 4443 00 
5A 00000000" EF 
59 000000006 20 
53 04 AC 
01 

04 AA 

53 

69 03 
39 3 
0 

Fos AA 

+ ee B 
01 0 
B3 

a8 1 
DF 

gt 

9 0408 F 

a 0 

00028000 4 
00028020 F 


0-90-90 709 -@-- 9 MO OOM"OOCTTTO 
9-9-9 -On—-- Wo "Oo owonooLfmM 
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NOUN_NODE CDBGSL_NOUN_VALUE] = .COUNTED_STRING; 


-PSECT 
QOO3A P.AAI: .BYTE 
00038 ASCII 
bones P.AAJ: .BYTE 
ks P.AAK: .BYTE 
00045 P.AAL: .BYT 


Macias NOWAIT= 
DBGSCS_ “DBLQUOTE= 


DBG$CS_SLASH= 


a 
bad 
v 
c 
nn 
= 
rc 


~m 

sed 

es oon 
D—-2 zs 

w“” 

= 

La 


WGN 
ww 
v0®m 
cw 
mw 
= 


DBGSPLIT,NOWRT, SHR, 


6 
‘wa \ aide 


DBGSCODE,.NOWRT, SHR, 


DBGSNPARSE SPAWN, Save R2,R3,R4,R5,R6,R7,- 


R8,R9,R 
beesee tn. "eid R11 
SE GARTC TCH, R 


FLAGS 

Pus ES. R3 

Seon 

#3, DBGSNMATCH 
5$ 


& 

Pecans 

#3, DBGSNMATCH 
#1 


#1, FLAGS 
1$ 


rt 
#°M<R3,R10> 
#3, D DBGSNMATCH 


3$ 
#164048 
4$ 
#167200 


Se Se Se Se Se Se Se Se Ge Ge Se Se Se Se Se Se Se Se Se Se See Se BeBe Se ees 
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4.32 =1984 23:52:11 AX-11 Bliss-32 V4.0-74 Page 25. 

1a-8ep-19 4 $3:32:4) DEBUG. SRCIDBGATSIGN.B3 31 . HB 

000000006 00 01 Fe SA 4$: CALLS #1, LIBSSIGNAL : | 

5 os ht e} 58 GGVL -VERB_NODE, R2 + 0823 

04 3 54 D MOVL FLAGS, 4(R2) : 

2 68 TSTW = (R3) : 0853 

6D BNEQ $$ : 
00 3 sf BRW 2s : 

1 DD 00072 6$: PUSHL #1 3 0854) 

0408 8F BB or PUSHR #*M<R3,R10> : | 
9 ; FB 78 CALLS #3, DBGSNMATCH : 
4 E8 00078 BLBS RO. 12$ : 

4 0D 907 PUSHL 3 0859 | 

68 1 F CALLS #1, DBGSGET_TEMPMEM : 

5 9 DO 000 MOVL RO, NOUN_N : | 

08 A2 DO 000 OVL NOUN_NODE, 8(R2) : 0860 | 

01 DD OOBA PUSHL #1 + 0865 

02 AA 9F 0008C PUSHAB DBGS$CS_DBLQUOTE : | 

53 DD O008F PUSHL R : 
69 93 FB 00091 CALLS #3, DBGSNMATCH : 
05 0 4 0094 BLBC ; : 

56 1 90 00097 MOVB #1, QUOTE_FLAG + 0867 
2 11 0009A BRB : 

¢ 34 009C 7$ CLRB  QUOTE_FLAG : 0870 

50 ; C OO09E 8$ MOVZWL (R3),~RO + 0875 
0 D6 O00AT INCL. RO : 
50 04 C6 000A3 DIVL2 #4, RO : 
01 AO SF 0006 PUSHAB 1(RO) : 

6B 01 FB 000A9 CALLS #1, DBGSGET_TEMPMEM : 
54 50 00 OOOAC MOVL RO, COUNTED “STRING : 

51 94 OOOAF CLRB = CHAR : 0880 

55 04 00081 CLRL. COUNT + 0881 

50 01 AS OOD 90085 MOV 1(R4), OUTPUT_PTR + 0882 

$3 BS 00087 9S: TSTw —- (R3) : 0887 
1 13 00089 BEQL 118 : 

52 51 90 00088 MOVB CHAR, PREV_CHAR > 0893 

51 06 83 90 0008 VB  @4(R3), CHAR + 0894 
04 =A 06 000¢ mL 4 (RB) ; 

$ : 999¢ vecw = (R3) + 0895 

0D 1 91 000C¢ CMPB  =s- CHAR, «#13 : 0900 
20 13 OOOCA BEQL =«sa1'18 ; 

16 6 ; 000CC BLBC QUOTE_FLAG, 10$ > 0906 

22 51 91 OO¢F CMPB ss CHAR, "#34 : 0909 
11 12 00002 BNEQ F 

22 52 91 9904 CMPB PREV. CHAR, #34 : 0917 

13 12 00007 BNEQ 1 : 

58 04 8B p 99009 MOVL @4(R3), RB : 0918 
51 6 D MOVE (R8)_ CHAR ; 
04 8 06 O0E INCL @4(R$) ; 

8 O€£ DECW = (R3) : 0919 

80 1 90 OE 10$:  MOVB CHAR, (OUTPUT_PTR)+ : 0928 

5 06 O00E INCL count : 0929 

8 11 QOEA BRB $ : 0887 

64 9 EC 11$:  MOVB COUNT, (COUNTED_STRING) : 0935 

67 4 0 EF MOVL COUNTED STRING, (NOUN_NODE ) : 0940 

50 1 p Fe 128: MOVL #1, R > 0945 

4 000F > 0947 


ee Ot igsete ¥3 20° 035 
DEBUG. SRC JDBGATSIGN.832;1 


Be 92:16:84 


13 1 
1h-Sep-1 


18-52 


DBGSCODE + 0351 


3 
é 


246 bytes, 


3; Routine Size: 


$23 “19 22:11 AX-11 Bliss-32 V4.0-74 Pa 7 
127808= 1382 93:32:41 DEBUG. SRCIDBGATSIGN.B3 31 si bs 
GLOBAL ROUTINE DBGSNEXECUTE SPAWN (VERB_NODE, MESSAGE_VECT) = | 
i FUNCTI 


ON 
This routine executes a SPAWN command. 
i FORMAL PARAMETERS: 


VERB_NODE = The command verb node which is the start of the command 
execution tree. 


' 

' 

' 

' 

' 

' 

' 

: MESSAGE _VECT = The address of a longword to contain the address of 
: @ message argument vector. 
' 

' 

' 

J 

' 

' 

' 

' 


i ROUTINE VALUE: 
: An unsigned integer longword completion code: 


Ne ee ee tat at at et et at 
ARUN BODRUM R IN OO OOs NOUN Owre 


Boee STSSK_SUCCESS (1) = Indicates the file was created and connected 

14 B38 STSSK_SEVERE (4) - Failure, file not created. Message argument 
Be 4444 vector returned. 
84 0969 
84 0970 BEGIN 
84 0971 
84 P 
ot VERB_NODE: REF DBGSVERB_NODE; 
84 LOCAL 
82 COUNTED CREF WECTORC, Byte). Contains arg to SPAWN 
85 EVN i Event flag for $GETJPI call 
85 0979 FLAGS: oh iseengaz: ' Flags for /NOWAIT AIT etc. 
ee Ee pagent on pete ee 
85 84 NAME -BUF FER: VECTOR(32,BYTE), releen jane 
85 098 NOUN NODE: REF DBGSNOUN NODE, ! Command object no 
85 0984 ' Return status en LIBSSPANW 
859 0985 ST6_DESC: DBG$STG_DESC, i A string descriptor 
861 0987 ’ 
He: 0988 
86 0989 ' Reset the terminal screen to ‘'‘normal’’ if we are in screen mode. This 
864 0990 ' makes sure that the whole terminal screen scrolls when we are in the 

5 449 other process and that the screen is refreshed when we reenter DEBUG. 
86 0998 bacsscr. SCREEN_NORMAL () ; 

9 5 

70 $99 


Opcate the oye iter flags and the noun node. 
w 


The flags t tell us w efner /NOWAIT was specified (this 


is currently the only qualifier we support). 


333 


DONO ULSWN $0 OONO 
SOooceco 
ooonovovond 
SANS 
co Wis 
RIPIPPOPEPIMIPIMINIPIMMPIPOPIPPININYINPINIPOPINDNINSPYIPIPINININIPIY a ad a nt tt a a a at tt ot 


' 

i 

i 

i The noun node tells whether : Mee command was given as argument, 
or whether we saw a bare SPAW 
F 


LAGS = :VERB NODE CDBG$L_VERB_ADVERB_ PTR]; 
NOUN_NODE = .VERB_NODE CDBG$L_VERB_OBJECT_PTR); 


ANN 


0.000909 09 00 Co Co 
SNS 
VMwn— 


ono 
FSzSS3 


palobe i2:i6:b4 — EOeeuG. SRCIOBGATSTON.039;1 


eaow 


1 
ie 1 


79 1005 
1 ! Note - in both cases below we would Like to put out the 
1 1 ! “SPAWNED = process XXX spauned; terminal now attached to ..." 
1 ! as DCL does. But LIBSSPAWN does not put out this message, and 
100 !' there appears to be no yey we fen put it out at this level 
101 ' (we don’t know if LIBSSPAWN will succeed, and even if it does, 
+H ; ; we don't know the name of the spawned subprocess). 
bs? : 18 If no command string is given, just call LIBSSPAWN with flags argument. 
889 1015 if .NOUN_NODE EQL 0 
631 i STATUS = LIBSSPAWN(0,0,0,FLAGS,0,0) 
89 101 
894 1020 ! If a command string was given, we pass it into LIBSSPAWN along with the 
$3? 13 1 flags argument. 
MB se, 
899 1025 COUNTED _STR'NG = .NOUN_NODECDBGSL_NOUN_VALUE]; 
900 10 $ STG_DEST DscsB_ CLASS) = DSCSK_CLASS_S; 
901 196 STG_DESCLDSCSB_DTYPEJ = DSCSK_DTYPE_T; 
90 1028 STG_DESCLDSCSW_LENGTH) = ~COUNTED_STRING 0); 
90 IOSD STG_DESCCDSC$A_POINTER] = COUNTED STRING(1); 
904 1030 STATUS = LIBSSPAWN(STG_DESC,0,0,FCAGS,0,0); 
905 1031 END; 
30 1038 
908 1034 ! If a bad status was returned then signal a DEBUG error and include 
ou8 1032 } the return status as the secondary error. 
gi] 1037 if NOT .STATUS 
318 1039 SIGNAL (DBG$_NOSPAWN, 0, .STATUS) 
914 1040 
316 1943 og 
917 1948 IF .FLAGSCNOWAIT_FLAG) 
mR * 
920 1pe8 ! We can put out an informational message if a SPAWN/NOWAIT 
os HS subprocess was created. 
9 4 1969 SIGNAL (DBG$_ SPAWNED) 
IR ast 
926 1936 4 BEGIN 
356 1084 é 
929 1055 4 ! On a successful return just give an informational message that 
: 1937 ? control is being returned to the parent process. 
33 1 28 4 i Note - if we return to the parent via an ATTACH, we will 
tt 1923 ? } go through this code, which we don't really want to do. 
935 1061 4 i We have to first go through some work just to determine the 


wr 


WANE BEEP PPLE EEE 


1 
1 
1 
; 5 
Hs 
i 
Hi 
i 
1074 
: 5 
Hi 
1 
1080 
: 1 
HE 
1 


: 
07 
07 
07 
08 
08 
08 
08 
084 


0#250 
3; Referenced LOCAL symbol L 


413 
15-Se 
14-Se 


} name of the parent process. 


iTEMCO,0,16,0] = 15; 

ITEM 9-95 % ] = JPIS_PRCNAM; 

ITEM 1.0.38, = NAME_BUFFER; 

ITEM 2 = LEN; 

CHSFILL(O, 12, ITEMCS, A_}); 

STATUS = LIBSGET EF (EVNT FLAG); 

IF NOT .STATUS TREN SIGNAL(.STATU 

STATUS = SGETJPI (EFN=.EVNT_FLAG, 
LIBSFREE_EF(EVNT FLAG); 

SIGNAL (DBGS_RETURNED, 2, .LEN, NAME_BUFFER); 


~1984 f2:16:$4 — EDeeuG. SncSbaGarsion.00; 1 


! After returning from the spawn, set the terminal back to 


the appropriate mode. Then return. 


iF .DBGSGB_KEYPAD_INPUT THEN X = 1 ELSE X = 0; 
SMGSSET_KEYPAD MODE (DBGSGL_KEYBOARD_ID, X); 


RETURN STS$K_SOCCESS; 


1:1073 
EN is probably not initialized 


OOFC 00000 
57 000000006 00 9€ 00002 
5E AC AE 9E 00009 
000000006 22 00 Fe 0000 
0 04 AC dO 00014 
gf 04 Ad bdO 00018 
5 08 A rf 001C 
0B i2 00020 
7E 7C 00022 
08 AE 9F 00024 
7E 7C 00027 
7E 04 88 9 
5 65 0g 0058 1$ 
\s 3 010€ F 60 00 
1 A 60 98 000 
14 AE 01 AO YE $6 A 
7E 7C 00035F 
08 AE of 041 
7é 7C 4 
24 «AE OOF 
000000006 90 8 F 2s: 
F ES 00038 
dD 
DA i 
dD A 


OQO0028A1A BF 


DBGSNEXECUTE_SPAWN, Save R2,R3,R4.R5,R6,R7 
LIBSSIGNAL, R7 
=B4(SP), § 

#0, DBGSSCR_SCREEN_NORMAL 

VERB_NODE, RO 

4(ROT, FLAGS 

RO), NOUN_NODE 


COUN NODE) COUNTED_STRING 
#270, "STG_DESC+ 

(COUNTED STRING), STG_DESC 
1(RO), STG_DESC+4 

(SP) 

FLAGS 

STG_DESC 

+~ LIBSSPAWN 

RO, STAT § 

STATUS, 

STATUS 


#166426 


re i 


| 


| 


| 
1 -1984 23:52:11 AX-11 Bliss-32 V4.0-74 Page 30 
1aageer ORs FSi Feil | HOMES Bhisse3e Ee0-285., age 30 
67 03 Fe CALLS #3, LIBSSIGNAL : | 
- 7% BRB 6 : | 
0B — €9 3$: BLBC.CCéKF Ags 4$ + 1043) 
000286F3 8F dD PUSHL #16564 3; 1049 | 
67 } FB CALLS #1, LIBSSIGNAL ; 
36 AE 031C000F $F 0 73 4$: MOVL $5 0166671 ITEM F 1064 
40 AE 1¢ AE 9E MOVAB WAME_BUFFER, ITEM+4 : 1066 
44 AE 04 Ns 3 MOV LEN, ITEM+ + 106 
0c 00 6E , 00 ¢ 3 movcS #0, (SP), #0, #12, ITEM+12 + 1068 
08 AE OF C PUSHAB EVNT_FLAG + 1069 
000000006 90 f F F CALLS #1, CIBSGET_EF : 
0 D 6 MOVL RO. STATUS : 
0 6 €E 9 BLBS STATUS, 5$ + 1070 
56 DD 0009C PUSHL STATUS ; 
67 01 FB 6 Hi CALLS #1, LIBSSIGNAL ; 
Be OA 5$ CLRQ 2s = (§P) + 1071 
7E D4 OO0AS CRE =(SP) 
48 AE 9F OO0A PUSHAB ITEM : 
7E 7C OO00AB CLRQ. = (SP) | 
20 A DD OOOAA PUSHL EVNT_FLAG : 
000000006 00 9 FB OO0OAD CALLS #7, SYSS$GETJPI 3 
56 0 DO 000B4 MOVL RO. STATUS F 
08 AE 9F 000B7 PUSHAB EVNT_FLAG : 1072 
000000006 00 01 FE OOOBA CALLS #1, CIBSFREE_EF : 
1c AE 3 000C1 PUSHAB NAME_BUFFER + 1073 
7E 08 A C 000C4 MOVZWL LEN, (SP) : 
02 OD 000¢8 PUSHL : 
000286D3 8F DD OOOCA PUSHL #165587 : 
67 04 FB 000D CALLS #4, LIBSSIGNAL ; 
06 000000006 00 €9 99005 6$: BLBC  DBGSGB_KEYPAD_INPUT, 7$ > 1081) 
Oc AE 01 DO 000D MOVL #1, X : 
3 11 000D BRB as F 
OC AE D4 OO0EO 78: CLRL so : 
OC AE 9F OO0ES 8S PUSHAB X > 1082 
000000006 00 9F 000E6 PUSHAB DBG$GL_KEYBOARD_ID ; 
000000006 00 2 FB OOEC CALLS #2, SMGSSET_KEYPAD_MODE : 
50 1 B OOF MOVL #1, RO : 1083 
4 000F6 RET > 1084 


3; Routine Size: 247 bytes, Routine Base: DBGSCODE + 0447 


| 
} 
ee GN 18.26 “19 2:52:11 AX-11 Bliss-32 V4. Page 31. 
yO 000 12-80-1982 $33} gihi DEBUG. SRCIOBGATSIGN.O B32;1 . a) 4 
; 1085 1 GLOBAL ROUTINE seamen param_name (param_count, param_name, 
: 51 } ! we rm_flag, message_vect) = 
3 $68 : 3 Routine Description | 
; 965 1090 1: This routine constructs a name of the form ‘%Pi"’, atven the | 
> 966 1091 1! number i. The reason there is a global routine for this is 
; 967 1 3 1! that this needs to be called from within DEGSNEXECUTE DECLARE 
; 968 1093 1: as well as DBGSNEXECUTE_AT_SIGN. 
; 969 1094 1! 
: 970 1095 1! Inputs 
3; OT) 1936 1! 
s 97 1097 1! param_count - The number “i"' which is to be made into the 
3 OF 1098 1! name "‘ZPi"' 
: 974 1099 1} param_name - An address to receive the constructed name. 
; 975 1100 1: perm_flag - f TRUE, construct param name out of permanent 
; 976 1101 1! memory | 
s Ory 1108 1/ message_vect - An error message vector. 
; 978 1103 1! 
; 979 1104 1 ! Outputs 
; 980 1133 1! 
: 981 1106 1! A counted string is constructed and param_name is filled in with 
; 98 110% 1! ge address. 
; 98 1108 1! condition code is returned. This is one of: 
; 984 1109 1: STSsk SUCCESS = success. | 
§ 382 BY i STSSK_SEVERE - error. An error message vector is constructed. 
; «987 1336 1 ' Side Effects 
; 988 1113 1! 
; 989 1114 1 Memory is allocated for the name. 
; 990 1115 1 f-= 
; 991 1116 3 BEGIN 
; 99 1117 | 
; 1118 LOCAL 
3 994 1119 outlen: WORD, ! Receives length from SYSS$FAO 
; 995 1139 param_len: WORD, ! Length of parameter name 
:; 996 1121 stg_ week : dbgsstg. desc, ' Used in call to SYSS$SFAO 
; 997 1158 stg_desc2 abgs stg desc, ! Used in call to SYS$FAO 
; oe M1S7 temp_name: REF VECTO VTE); ! Holds name temporarily 
; 1000 1125 EXTERNAL ROUTINE 
: 1001 1158 sys$fao; 
3 1008 1127 | 
3 \ i 3 : Determine the Length of the name. 
3; 1005 1130 IF .param_count GEQ 1 AND .param_count LEQ 9 
3% 1131 THEN 
; 100 11 ; param_len = 3 
; 1008 11 ELSE IF .param_count GEQ 10 AND .param_count LEQ 99 
3 94 1134 THEN 
3; 1010 1135 param_len = 4 
3 1011 1136 ELSE 
3 Ha i 7 $DBG_ERROR('DBGATSIGN\DBGSCONSTRUCT_PARAM_NAME °) ; 
3 1014 1139 ! Allocate space for the name. 
3; 1015 114 ; 
3; 1016 1141 IF .perm_flag 


ee aes eee ee ’ 
ensue WERSeHats WHEL SUSU. uate nhs me 


- 4 DEBUG. SRC JDBGATSIGN.B32;1 
; 1017 114 THEN 
s is 1108 BEGIN 
3; 101 1144 temp_name = dbg$get_memory (1+ (1+.param_len)/4); 
: 1020 1145 
; 1021 1138 
1958 1168 Hy dbgSget_t as ce len) /4) 
: emp_name = et_tempmem -par : 
3 1024 1149 ENDS” Regie srs cst 
3 1025 1150 
; 10 $ 112) temp_name([0) = sparen len; 
: \° ‘ 1126 ch$move (2, UPLIT BYTE(ZASCII 'XP"), temp_name(1)); 
: 19 9 1134 ! FALL in the string descriptor for use by SYSSFAO. | 
3 1031 1196 stg_desci(dsc$w_length] = 3; 
3 1336 115 stg_descildsc$a_pointer] = UPLIT BYTE (ZASCII ‘!SL"); 
; 10 1158 ete..cesce dsc$w_length] = .param_len-2; 
3 Ht 1323 stg_desce[dsc$a_pointer] = temp_namel F 
: 1036 1161 ! Call SYS$FAO to convert the number into a string. | 
; 3 1168 if wor sys$fao (stg_desc1, outlen, stg_desc2, .param_count) 
: 4 1382 $DBG_ERROR('DBGATSIGN\DBGSCONSTRUCT_PARAM_NAME ') ; | 
: Hk 4 8 14 } Check that SYSSFAO filled in the expected number of characters. | 
> 1044 1169 iF .outlen NEQ .param_len-2 
3 1045 1170 2 N 
3 4 3 1371 $DBG_ERROR( 'DBGATSIGN\DBGSCONSTRUCT_PARAM_NAME ‘) ; 
: 1068 1173 ! FiLL in output parameter. 
3; 1049 1174 ! 
3; 1050 1175 -param_name = .temp_name; | 
; 1051 1176 2 
$ 1936 1177 ' Return success. 
: 105 1178 ! 
; 1054 1179 RETURN sts$k_success; 
: 1055 1180 
3: 1056 1181 1 END; ! dbg$construct_param_name 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


2 47 42 44 SC GE 47 49 53 54 41 47 42 44 22 00047 PAAR: ASCII \"DBGATSIGN\<92>\DBGSCONSTRUCT_PARAM_NAM\ 
to 41 52 41 50 SE 54 43 55 52 54 53 GE 4F 4&8 00056 : 
td 41 GE SF 00065 : 
45 00069 “ASCII \E\ : | 
50 25 Q006A P.AAN: “ASCII \ZP\ : | 
oc 55 31 C PLAAO: “ASCIIT \SSL\ : 
24 47 42 44 SC GE 47 49 53 54 41 47 43 44 88 F PLAAP: ASCII \"DBGATSIGN\<92>\DBGSCONSTRUCT_PARAM_NAM\ | 
iD 41 59 41 50 SE 54 48 §5 $2 54 53 GE 4F 4&8 OO07E 
oe ee oe ASCII \E\ ; | 
2 47 42 44 SC GE 47 49 53 $4 41 47 42 44 23 09 P.AAG: ASCII \FDBGATSIGN\<92>\DBGSCONSTRUCT_PARAM_NAM\ | 
tp 41 52 41 50 SE 84 43 $2 54 «83 GE GF 6&8 O00 | 


seuss 


00000063 


000000006 


000000006 


000000006 


00 
OE 


66 


00028362 
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00028362 
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80 B08 1 
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«EXTRN 
-PSECT 
eENTRY 
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AX=11 Bl iss-32 V4.0-74 
DEBUG. SRCJDBGATSIGN.B32;1 
\E\ 

SYSSFAO 

DBGSCODE,NOWRT, SHR, PIC,0 
DBGSCONSTRUCT_PARAM_NAME, Save R2,R3,R4,R5,- 
LIBSSIGNAL, R6 

P.AAM, R5 

#28, §p 

PARAM COUNT , RG 

Rs. "9 

#3, PARAM_LEN 

R4, #10 

R4, #99 

#4, PARAM_LEN 

3$ 

R5 

# 

#164706 

#3, LIBSSIGNAL 

PARAM_LEN, RO 

RO 

#4, RO 

PERM_FLAG, 4$ 

#1, DBGSGET_MEMORY 

20 

#1, DBGSGET_TEMPMEM 

RO, TEMP NAME 

PARAM LER (TEMP_NAME) 

P.AAN, 1(TEMP_NAME) 
#3, STG_DESC1 
P.AAO, ST¢_DESC1+4 
PARAM. LEN, R 


#2, R 
R3, STG DESC2 
3(R2), STG_DESC2+4 


STG_DESC2 
OUTCEN 
STG_DESC1 
#4, “SYSSFAO 
RO, 6$ 
BAP 


#164706 
#3, LIBSSIGNAL 


1165 


; Routine Size: 


200 bytes, 


4B 


4 00028362 


08 BC 
50 


Routine Base: 


DBGSCODE + 
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CMPZV 9. #16, OUTLEN, R3 
BE 7 
Ae gg P.AAQ 


4706 
CALLS a3. LIBSSIGNA 
MO EMP_NAME, SPARAM. NAME 
nov if RO 


Page % 


: seat 
; "71 
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F 14 
15-Sep-1984 23:52:11 AX-11 Bliss-32 V4.0-7 
14-Sep-19 4 $3538: 4, DEBUG. SRC 

GLOBAL ROUTINE dbg$parse_spawn (parse_stg_desc) = 


: Functional Description 
This routine provides an interface from the old language parsers to 
the new debugger parse network for SPAWN. It is passed a string 
descriptor for the remainder of the input Line. 
It calls DBGSNPARSE_SPAWN to construct 
a@ command execution network, and returns a pointer to the verb node. 


Inputs 


input Line. 
Outputs 
A command execution network is constructed, 
consisting of a verb node for the SPAWN 
verb, and possibly a noun node for the argument 
BEGIN 
MAP 
parse_stg_desc : REF BLOCK C,BYTE); 


i 
i 
i 
i 
i 
i 
; 
parse_stg.desc = A string descriptor for the remainder of the 
' 
i 
i 
i 
i 
i 
loo 


dummy_mess_vect: REF VECTOR, Address for pooneg® yecter returned 


from DBGSNPARS 


' 
' 
len, ! Length of command Tine 
parse_stg_ptr ! Pointer into command Line 
stg : RE ECfor C.BYTE, ' Pointer to a new copy of the 
; command Line 
verb_node; Pointer to the head of the command 


execution tree for SPAWN 


! Call the ‘new style’ parse network for the spawn 

' command. This builds a command execution network. 
We return a pointer to the verb node. 
i 


First allocate space for the verb node. 
verb_node = dbg$get_tempmem (dbg$k_verb_node_size); 


! Then stuff a carriage return character at the end 

! of the input Line since this is what the new style 

!' parser expects to see. Also, translate the line to 

: upper case (the new debugger does this; the old does not) 


len = sperse stg_desc(dsc$w_length); 
stg=d gSget_tefpnen (14(1%, Len) /ZUPVAL); ; 
arse stapes =¢ TEtes -paree.ste_cescldsche_pointerd); 
NCR 7 F 0 TO .len-1 DO 
BEGIN 
char = ch$rchar_a(parse_stg_p 
ar 


tr); 
IF .char GEQ %C%a* AND cchar LEQ %C'z' 
THEN 


14 | 

GATSIGN 18-56 =1984 23:52:11 AX-11 Bliss-32 V4.0-74 Page 36 
1b en 000 12-Sep-19 4 93:32: 4) DEBUG. SRC IDBGATSIGN.B3 31 . Rid 
} 


stgl.i] = .char = (%C'a'-%C'A') 
ELSE 
stgl.i] = .char; 


stg. len] = dbg$k_car_return; 

parse_stg_descldsc a_ointer} = .stg; 

parse _stg_descldsc$w_length] = 
-parsé_stg_descldsc$w_length] + 1; 

Now cacl the parser on the remainder of the input Line 


if NOT dbg$nparse_spawn (.parse_stg_desc, 
-verb_node, dummy_mess_vect) 


: If the above routine does not return success, then we signal 
: an error using the error message vector that we got back. 
} 


BEGIN 
EXTERNAL ROUTINE 
1p LBSSEGNAL : ADDRESSING_MODE (GENERAL); 


CALLG (.dummy_mess_vect, Lib$signal); 


PMIPOITPOPIPIPOPIPIPIPIPUNIPUIPIPINIPININININPIPYINININUNPD 


PAPAS BBE EW 


| 
! Restore pointer field of PARSE_STG_DESC since this car be wiped out 
during new style parsing. | 

| 


.] 
i] 
i 
- -parse_stg_desc(dsc$a_pointer] EQL 0 


EN 
parse_stg_desc(dsc$a_pointer] = .stg+.len; 


RETURN .verb_node 
END; ! dbg$parse_spawn 


a a te ad ad dd 
a De tt et ed ad dd 
OOD NAMVES WN | O OONOAUESWN SO DONAUS WN —OOONOU 


ed at a ot = = = 2 SS SS St SS 2 


POPOPOPOPONNyPoNoTfy 


NNN NNO Oo 
MEW 9 ODONAUE WN O OONOAUES WR" OOOVNOAUE WN "OO0 


A PRIPIPNININININININININPINI NANI AIAIPIPIPUPINIPIPIPINIPIPIPININIWI 


| 
| 
Finally, return a pointer to the verb node. | 


| 
} 
-EXTRN LIBSSIGNAL 
} 


OOFC 00000 -ENTRY DBGSPARSE SPAWN, Save R2,R3,R4,R5,R6,R7 : 
57 000000006 a H 99008 HOVA DBGSGET_TEMPMEM, R7 
3 DD 6999¢ PUSHL > 1224 
67 1 FB O000E CALLS #1, DBGSGET TEMPMEM ; | 
56 0 00 0011 MOVL RO, VERB_N ; | 
54 04 AC 0014 VL —- PARSE_STG_DESC, R4 ; 1231 | 
5 64 3C Beis MOVZWL (R4), LEN 8 
5 01 A2 9% 18 v 1(R25, RO > 1232. 
50 04 £6 1F DIVL2 #4, RO ; | 
01 Ad 9F 000 PUSHAB 1(RO) ; | 
67 1 FB 0 CALLS #1, DBGSGET_TEMPMEM ; | 
53 0 D0 00 MOVL RO, STG ; | 
33 04 A& dO 00028 MOVL  4(R4), PARSE_STG_PTR ; 1233 
0 01 CE 0002F MNEGL #1, I : 1239 


14 
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ens 


1 
1 
11 2 BRB 3g 
51 i 9A 8 1$: MOVZBL (PARSE S1G_PTR)+, CHAR 
00000061 8F I D4 0 7 CPL HAR, #97 
0000007A =F 51 D1 df CMPL HAR, #122 
7 14 0004 BGTR $ 
6043 51 0 83 00049 SUBB3 #32, CHAR, (1)CSTG) 
4 11 00 af BRB 3 
6043 19 05 gs: MOV CHAR, (1)CSTGI 
pc 50 52 F2 00054 3$: AOBLSS LEN, I, 1$ 
624 op 058 MOV #13. (LEN)CSTG) 
04 Ad D0 d05¢ MOVL STG, 4(R4) 
64 B6 0006 INCW 
4050 8F BB 00062 PUSHR #*M<R4,R6,SP> 
FCEO CF 03 FB 00066 CALLS #3, DBGSNPARSE_SPAWN 
08 0 £8 00068 BLBS ; 4$ 
000000006 00 00 BE FA OO06E CALLG @DUMMY_MESS VECT, LIBSSIGNAL 
50 04 AC D0 0076 4$: MOVL § PARSE_STG_DESC, RO 
04 AO D 00074 TSTL  4(RO) 
05 12 0007D BNE 
04 Ad 53 52 C1 0007F ADDL3 LEN, STG, 4(RO) 
50 56 00 00084 5$: MOVL § VERB_NODE, RO 
04 00087 RET 


; Routine Size: 136 bytes, Routine Base: DBGSCODE + 0606 
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DBGATSIGN Lae $1984 23:52:11 AX-11 Bliss-32 V4.0-74 Page 38 
yO0-000 12-805-1 384 $3332: 4) DEBUG. SRC IDBGATSIGN.B3 31 . (11) | 
; i ; ! y } ROUTINE get_param (input_desc, paren_flag: BYTE, result_addr) = 
; 1% 5 : a ! } Routine Description 
3 11 5 1280 1! This routine collects a parameter from the input stream. It allocates 
; 1158 1281 1! permanent memory and copies the parameter jnto that memory. A 
> 1159 1 ¢ 1; parameter may be inside of double quotes ("'), in which case this 
; 1160 1 iz routine reads to the pede quote. Or, if it is not inside of 
3 BY 2 : : : quotes then comma (or possibly right paren) is the terminator. 
; 1183 1286 1! Inputs | 
3; 1164 1 4 1! 
3; 1165 1286 1! input_desc - A string descriptor for the ee input. 
> 1166 1289 1! paren_flag - TRUE if the parameter List is parenthesized. This 
3; 1167 1290 1! affects the parsing of an individual parameter in 
3; 1168 1291 1! that a closing a is treated as a terminator. 
3 1198 : : } result_addr - The address to leave a pointer to the result. 
3 1171 12946 1 ! Outputs 
; 1176 1295 1! : 
3 117 443 7 $ A counted string is constructed out of permanent wonety and filled 
3 1174 1297 1! in with the parameter that is read, and a pointer to this string 
3 1175 1298 1! is left in result_addr. 
3; 1176 1299 1! The value TRUE is returned if a parameter is successfully read. 
; Wee 1300 : The value FALSE is returned if a parameter cannot be read. 
3 ico | 
3 1179 1306 § BEGIN 
: 1180 130 
3; 1181 1304 2 MAP 
; Ht 1305 input_desc: REF dbg$stg_desc, 
3 118 1306 paren_flag: BYTE; 
3 1184 1307 | 
3 1185 1308 LOCAL 
3; 1186 1309 char: BYTE, ! Holds a character from the stream 
3 1187 1319 chars_read, ! Count of number of characters read 
3; 1188 1311 input_ptr, ! Pointer into current position in input stream 
3 1189 1318 output_ptr, ! Pointer into result string 
3; 1190 ‘3 prev_char: BYTE, ' Holds previously-read character 
3; 1191 1314 prev. input ptr ! Pointer to previous position in input stream 
3 1136 1315 quote_f ag: BYTE ' True if the parameter is quoted 
3 119 1316 resulf€: REF VECTORL.BYTE], | Points to the result string 
3 1194 1317 saved_input_ptr, ' Saved value of input pointer. 
3 BD 4 ; 18 tot_chars_reéad; ! Count of total characters read 
; 1197 1320 : The get_char macro is used when we want to read another character. 
P4 H | 
3 1199 m1 § MACRO get_char = | 
; 1200 41 prev_input_ptr = .input_ptr; 
: 1201 M 1324 char'= ch$fchar_a (input_ptr); 
3 1508 ! 5 tot_chars_read = .tot_chars_read + 1%; 
5 } +4 : Initialize some variables. 
31 1 input ptr = .input_desc Cdsc$a_pointer]; 
31 0 1330 tot_chars_read = 0; 
3; 1208 3 1 chars_read = 0; 
3; 1209 1332 prev_char = %C° '; | 


14 
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: char = %C° °; 

} } First skip leading blanks. 

1 WHILE .char EQL dbg$k_blank 

; wee bot _chers_reed LSS .input_desc Cdsc$w_length] 
1 BEGIN 

1 get .char; 

1 ND; 


Check for leading quote. 
if .char EQL dbg$k_dblquote 
THEN 


oa i t_ptr)<0,8,0> = 0 
-prev_input_ptr)<0,8,0> = 0; 
quote Tlag s TRUE: 

get char; 


OOO NAOUES WN" OOONOUES WO 


SSIS Ne 


quote_flag = FALSE; 
saved_input_ptr = ch$plus (.input_ptr, -1); 


AW 
wr 
wot ety YY PPI PWIPYIY vere AAA 
PAPAIN , a a? a 


WN OS OONAUS WN (OV ONAYV EWN" OOONOUS Ww 


' Loop through the etring representing the parameter, 
until a terminator is found. 


WHILE .char NEQ dbg$k_car_return 
D .tot_chars_read LSS .input_descldsc$w_length] 


D 
BEGIN 


: If we are inside of quotes, the onty terminator is a quote ("'). 
; Doubled quotes (""), however, must be undoubled. 


WU SSHVSEAE 


SPP EwW 


if .quote fla 
IF quote. flag 
BEGIN 
: Check for “ 
if .char EQL dbg$k_dblquote 
THEN 


YL el ll a 
SOONOUE 


PIPOPOPIPIPONONINOPONOPU Noon Ponononofornofnonorny 


SN NNN 
NOUSWN—OOONOuM 


Check for doubled quotes 
if -prev_char EQL dbg$k_dblquote 
THEN 
BEGIN 
Mark the doubled quote with a 0. 


(.prev_input_ptr)<0,8,0> = 0; 
chars_read = .chars_read - 1; 


EN 
ELSE 


PAA 
CONOUEWwh— 


a ee a a a ed ad ad 2d od = ad = 2 
ww 


a a a a a a a ee ee ae ee a ee ee ee ee ee a a ad ed 
Ww 
noo 
&* 
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} 


3 1267 1390 4 ! Must be single quote. Since this terminates the 
; 3 re 1391 4 ! string, exit the loop. 

3 Y $ 1 3 4 } 

: 1270 13935 4 EXITLOOP; 

3: 1271 1394 4 END 

3 ; if ! 95 ELSE 

3 : ie : 3 This else clause is reached when quote_flag is false. 
3 re 1 3 4 BEGIN 

3 127 1400 4 

3 3 re 1401 4 : Comma is a terminator if not inside of quotes. 

3 127 1006 4 : 

3; 1280 1405 4 IF .char EQL dbg$k_comma 

3.1281 1404 4 THEN 

3} S 1405 5 BEGIN 

>; 128 1406 5 : Decrement tot_chars_read to back up to before the comma. 
> 1284 1407 5 tot_chars_read = .tot_chars_read - 1; 

> 1285 1408 5 EXITLOOP; 

39 Hf] 1409 4 D; 

; 128 1410 4 

3; 1288 1411 4 : es paren is a terminator if not inside of quotes 

3 1390 \elg ? and paren_flag is true. 

; 1291 1414 4 IF .paren_flag AND .char EQL dbg$k_right_parenthesis 

3; 129 1415 4 THEN 

3; 129 19 ? BEGIN 

3 1294 141 ! Decrement tot_chars_read to back up to before the comma. 
3; 1295 1418 é tot_chars_read = .tot_chars_read - 1; 

3 1296 1419 EXITLOOP; 

3; 1297 1420 4 END; 

: 1298 1421 END; 

3; 1299 14 ¢ 

3; 1300 14 !' Set up for next time around Loop. 

3: 1301 1424 : 

3 3 4 1425 prev_char = .char; 

: 130 14 $ get_char; 

3 1 ia chars_read = .chars_read + 1; 

1306 1439 7 

3 : 1? , H If no characters were read, then we failed to parse a parameter. 
3; 1 14 § IF .chars_read EQL 0 

3; 1310 14 THEN 

3; 1311 1434 RETURN FALSE; 

3 1 \ 1435 

; ’ 7 1° Allocate space for the result. 

: 1 15 1438 result = dbg$get_memory ((.chars_read+1+3)/ZUPVAL); 

: : " Ho Copy the parameter into the allocated area. 

3 1319 1066 result(0) = .chars reg: 

: 1320 144 output _ptr = resul€(1); 

3; 1321 1444 INCR i FROM 1 TO .chars_read DO 

3; 1 ¢ 1445 EGI 

3 1 1446 char = ch$rchar_a (saved_input_ptr); 


414 | 
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> 1324 1447 WHILE -char EQL 0 DO 
; 1325 1208 char = ch$rchar_a (saved -{nput. ptr); 
3 1 § 144 chSwehar_a (.char, Sutput. ptr); 

: 138 ~ 

i] : 1436 ! FALL in result_addr. 

3 1 14 4 -result_addr = .result; 

; : 1486 ! Update input descriptor. 

3 1335 145 . ut_desc (dsc$w_length]_= .input_desc Cdsc$w_length] - .tot_ch : 

$4 1289 input: desc tasess pethter] « EE LOGOS © A SR FO 

; : 7 1egy ch$plus ( "input. descldsc$a pointer], .tot_chars_read); 

; 33 1468 RETURN TRUE; 

; 1341 1464 1 END; ! get_param 


01FC 00000 GET_PARAM: 
WORD 


é Save R2,R3,R4,R5,R6,R7,RB : 1276 
54 04 AC 00 00002 MOVL §INPUT_DESC, R4 : 1329 
50 04 A& 00 00006 MOVL  4(R4)7 INPUT PTR : 
55 D4 OOOOA CLRL - TOT_CHARS_READ : 1330 
32 D4 0000C¢ CLRL  CHARS_REA : 1331 
57 90 0000E MOVB 435° PREV_CHAR 2.7 $ 
+t 0 90 00011 MOVB #3 : 133 
20 6 91 00014 1$: CMPB = CHAR, -#32 + 1337 
11 12 00017 BNEQ 2$ : 

55 64 10 00 ED a001e CMP ZV #0. #16, (R4), TOT_CHARS_READ : 1338 
51 50 D0 0020 MOVL §_INPUT_PTR PREV. INPUT_PTR : 1340 
56 80 90 000 MOVE (INPUT_PTR)+, CRAR : 

D6 00026 INCL _ TOT_CHARS_RE chp ; 

cA 11 00028 BRB : 1337 

22 6 91 00 A 28: CMPB HAR, #34 : 1346 
OF 12 0002D BNEQ ; 

61 94 0002F CLRB = (PREV_INPUT_PTR) > 1349 

58 1 90 00031 MOVB #1, QOOTE_FCAG : °350 
31 p 9 MOVL tnéut PTR> PREV, INPUT_PTR ; 
6 7 MOVE NPUT PT ms AAR : 
D6 OOO3A INCL TH _CHARS READ’ : 

08 11 0003¢ BRB he : 1346 

94 000 3 3$: CLRB OTE FLA > 1354 

53 FF AO 4: 40 4$: MOVAB ayer J SAVED_INPUT _PTR ; 1336 

0D 6 4 a4 5$: CPB HAR, #1 : 1361 

55 64 10 6 FD 00049 cHPiv 40, #16, (R4), TOT_CHARS_READ : 1362 
1 5 9 BLBC QUOTE_FLAG, 64 + 1369 
2 6 91 CMPB HAR, "#34 : 1375 

1p 12 BNEQ ; 
22 57 91 CMPB = PREV_CHAR, #34 : 1380 
} 


a 


now 


33> 


“1984 $2:36:$4 


AX-11 Bliss-32 Plage 
DEBUG. SRC JDBGATSIGN.B32;1 


————— 


7 \2 8 BNEQ 4869S 
19 D CLRB = (PREV_INPUT_PTR) 
: b7 F DECL HARS-READ 
12 11 2 BRB 
36 9 63 6$: CMPB CHAR, #44 
09 1 BEQL 
08 ac t BLBC = PAREN_FLAG, 8$ 
6 91 C CMPB HAR, #41 
4 if of BNEQ 
5 D 7$: DECL  TOT_CHARS_READ 
F 11 0007 BRB 9$ ~ 
: 9 07 8$: MOVB CHAR, ~PREV_C 
p 7 MOVL Input PTR “PREV INPUT. PTR 
078 MOVB INPUT _PTR)+ 
D6 0 ove INCL tar CHARS Rohe” 
i) 000 INCL HARS_READ 
1 0 O82 BRB 
D3 084 9$: TST CHARS_READ 
50 04 Ae 9 BBS MOVAB 4(R2) RO, 
50 4 ¢? 0008C DIVL #4, RO 
00 1 FB 096 CALLS * DBescer PMEMORY 
57 0 000 097 MOVL * RESULT 
67 é 90 0009A MOVB CHARS “READ, (RESULT) 
50 01 A? 9E 0009D MOVAB 1(R7)> OUTPUT_PTR 
38 $1 O00As ghee tas 
56 8 90 tn 10$:  MOVB (SAVED_INPUT_PTR)+, CHAR 
FB 13 OO0AB BEQL 105 
80 5 29 OOAA MOVE. CHAR, ~(OUTPUT_PTR)+ 
F4 51 52 F3 QOOAD 11$:  AOBLEQ CHARS _READ 1 
oc Bc 57 dO 00081 OVL RESULT @RESULT_ADDR 
64 55 a2 90085 SUBW2  TOT_CHARS_READ,~(R4) 
04 Ad 55 ¢O 00088 ADDL2  TOTCHARS-READ, 4(R4) 
. m0 ie a, ee 
50 D4 900¢0 12$:  CLRL RO 
04 000C2 RET 


; Routine Size: 195 bytes, Routine Base: DBGSCODE + 068E 
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Routine Size: 


14 
18-5 $1984 23:52:11 AX-11 Bliss- 
12788-1982 93:72:41 DEBUG. SRC IDB 
GLOBAL ROUTINE DBGSNPARSE_EXIT (INPUT_DESC, VERB_NODE, MESSAGE_VECT) = 


'e¢ 
FUNCTIONAL DESCRIPTION: 
This routine is the parse network for the EXIT command. Since the EXIT 
verb has already been recognized in dbg$nparse_cmd, and nothing else may 
follow that keyword, simply return success. 
FORMAL PARAMETERS: 
input_desc - string descriptor for remainder of input Line 


verb_node - peneene verb node - the head of the command execution 
re 


message_vect - the address of a longword to contain the address 
of a standard message argument vector 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
IMPLICIT INPUTS: 
! NONE 
i IMPLICIT OUTPUTS: 
NONE - The command execution tree is unaffected by this network. 
ROUTINE VALUE: unsigned integer lomgword completion code 
i COMPLETION CODES: 
; sts$k_success (1) - Always returned as the value of this routine 
i SIDE EFFECTS: 
NONE 
lee 

BEGIN 

RETURN sts$k_success; 

END; ! End of dbg$nparse_exit 


0000 00000 -ENTRY DBGSNPARSE_EXIT, Save nothing 
50 01 ? OR08 MOVL #i, RO 
4 0000 RET 


6 bytes, Routine Base: DBGSCODE + 0751 
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18-52 1984 23:52:11 AX=-11 Bliss-32_ V4.0-74 
127300-138e 13:46:54 DEBUG. SRCIDBGATSIGN.035; 1 
GLOBAL ROUTINE DBGSNEXECUTE_EXIT (VERB_NODE, MESSAGE_VECT) = 


144 


i FUNCTIONAL DESCRIPTION: 


This routine is the execution network for the EXIT command. An EXIT issued 
from an indirect command file or DO action buffer means to cease taking 
commands from the present buffer. In this case, a buffer is removed from 
oe — input stream. An EXIT issued from the terminal means to exit 

e debugger. 


FORMAL PARAMETERS: 
verb_node - The head of the command excution tree which in the case 
of EXIT consists nary of this one node. The value of the 
verb node is used only to direct processing to this routine 
and is not used by dbg$nexecute_exit itself. 


message_vect - The address of a longword to contain the address of a 
message argument vector 


IMPLICIT INPUTS: 
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4 

4 

4 

4 

4 

4 

4 

40 

40 

40 

41 

re 

2 ¢ dbg$gb_def_out - oem ™ output configuration structure 
2 36 dbg$gl_cishead - a ee “5 head of command input stream 
2 3 IMPLICIT OUTPUTS: 

re r¢ The above data structures may be altered. 

é3 ri} On failure, a message argument vector is returned. 

ri} ‘3 ROUTINE VALUE: 

$s 48 An unsigned integer longword completion code. 

43 +8 COMPLETION CODES: 

? 2 sts$k_severe (4) - The command could not be executed. 

: 26 sts$k_success (1) - The command was executed. 

: 22 SIDE EFFECTS: 

4 56 This routine may force the exit of the program image. Nodes may be 
? of removed from the command input stream. 

4 59 -- 

439 90 

440 1 BEGIN 

441 6 

ri 6 LOCAL 

44 64 count, : sengerery counter for number of levels to exit. 
rrr 2? Link: REF cis$link;! Pointer to a CIS Link. 


15 
oaetggge VEpct9Hs ESEESAL  WUSULLALNGGRR ERT. MF 


3: 144 1567 '+4 
3; 144 1 o8 ! When an EXIT is entered to the debugger we want to ‘go up a level’ to 

3; 144 1 § ! the next Link in the command input stream. This is done for indirect command 

: re} : 4 ! files by removing the Links for the RAB as well as the associated buffer. 

; 1431 157 | 
3 1 § ! 7 First walk past any layers of IF, WHILE, or REPEAT that we may be in. 
$ ieee 1ef? ; count = 0; | 
> 1455 1376 Link = .dbg$g 2{ i ghead: 

: 1028 157 WHILE .Llink (cis$b_input_type] EQL dbg$k_cis_if 
: ie 1578 OR .Link Ccis$b_input_type] EQL dbg$k_cis_while 
3 1458 1579 -lLink Lcis$b_input_type] EQL dbg$k_cis_repeat 
3; 1459 1 OR .Link Ccis$b_input_type] EQL dbg$k_cis_for 
: 1460 1581 DO BEGIN | 
3: 1461 15 ¢ count = jou" * 3g 
: 1236 158 Link = .link Ccis$a_next_link] 
3; 146 1584 END; 

3 1464 1585 

: 160? 1258 } Now case on the type of buffer we are looking at. 

; : 
3: 1467 1588 CASE .LinkCcis$b_input_type] FROM dbg$k_cis_minimum TO dbg$k_cis_maximum OF 
3: 1468 1589 SET 

3; 1469 1590 

3 1470 1591 2 ! Ordinary input buffer. 

3 1471 1336 : 

; 1e78 159 Cdbg$k_cis_inpbuf] : 
3 147 1594 BEGIN 

3 1474 1595 LOCAL 

3: 1475 1596 3 prev_link : REF cis$Link; | 
> 1476 1597 | 
3 1477 1598 ' Look at the CIS above the input buffer CIS. 

3 1478 1599 \ 
3: 1479 1600 rev_link = link Ccis$a_next_link]; 
> 1480 1601 ASE~.prev_link Ccis$b_input_type] FROM dbaSk cis_minimum 
3 1481 160¢ ; TO dbg$k_cis_maximum OF 
3 be 160 SET 
3; 148 1604 
3 1484 1605 ! If it is sis _dbg$input then we are taking commands 
; He + 1608 : from DBGSINPOT. In this case we want to exit DEBUG. 
1487 1608 tdbg$k_cis_dbgSinput) : | 
3: 1488 1609 4 BEGIN 

3 168) 1610 4 

3 14 1611 4 ! We are sccopting command from DBGSINPUT, so just 

3 1491 1616 4 ' exit to the system CLI. 

3 1e36 1615 4 : 

3 149 1614 4 

3 1494 1615 4 IF .dbg$gb_def_out Cout_log] 

3 1495 1616 4 THEN 

3 1496 1617 4 SCLOSE (FAB = dbgsgl looted): ! Close log file 

3 1497 1618 4 dbg$gb_def_outlout_log] = FALSE; 

3 1498 1619 4 dbg$gv_confrol Gbgsv control user) = True; 

3 1323 1 ’ ? dbg$gv_controlldbg$v_control_exit] = True; 

; 1501 16 ; 4 ' Call the SMG exit handler which restores the 

3; 1502 16 4 ! terminal back to application or numeric mode, 


15 
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depending on what it was at entry. 

Hen noretsma_enit_nandler NEQ 0 
(.dbg$gl_smg_exit_handler)(); 

= (code = .dbg$gl_exit_status OR sts$m_inhib_msg); 


; 1503 1624 4 

; 1504 1625 4 

; 1505 16 § 4 

; 1506 16 & 

3; 1507 16 8 4 

; 1508 16 & 

; 1509 1650 4 

3; 1510 1631 

3 1511 16 § 

H 1216 16 

3 } F 1 : If it is a RAB, we are in an indirect command file. 
; 1818 1636 Cdbg$k_cis_rab] : 

3 1318 1637 4 BEGIN 

; 151 1638 4 

; 1518 1639 4 ! Remove all CIS buffers we have walked past. 
3 1519 1640 4 : 

; 1520 1641 4 INCR i FROM 1 to .count+2 DO 

; 1521 19%6 4 IF NOT dbg$ncis_remove (TRUE, .message_vect) 
3 3D ¢ 16435 4 THEN 

3; 15 1644 4 RETURN sts$k_severe; 

> 1524 1645 4 RETURN sts$k_success; 

3; 1525 + | END; 

: 1526 164 

3; 1527 1648 ! We can get inpbuf's nested inside of each other 
: 1528 1649 ! when executing DO command Lists. 

3; 1529 1650 : 

3; 15 1651 CINRANGE) : 

3; 1531 1926 4 BEGIN 

; 1338 1655 4 

3 133 1654 4 ! Remove all CIS buffers we have walked past. 
3 1534 1655 4 : 

3; 1535 1656 4 INCR i FROM 1 to .count+1 DO 

3; 1536 1657 4 IF NOT dbg$ncis_remove (TRUE, .message_vect) 
3; 1537 1658 4 THEN 

3; 1538 1659 4 RETURN sts$k_severe; 

3; 1539 1660 4 RETURN sts$k_success; 

3: 1540 1661 END; 

3 1541 166¢ 

; 1366 166 

3 154 1664 ! Anything else is a DEBUG error. 

3 1544 1665 : 

3 1545 1666 COUT"ANGE) : 

; 1366 1667 4 BEGIN 

3 154 1668 4 $DBG_ERROR("DBGATSIGN\DBGSNEXECUTE_EXIT"); 

3; 1548 1669 END; 

3 1549 1670 

3; 1550 1671 TES; 

3; 1551 1076 

; 133¢ 167 END; ! cis_inpbuf case 

3 155 1674 

3; 1554 1675 ! If we are accepting commands from an action buffer 

3 1555 1978 ! we 9° up a level by removing that buffer (and any 

; 1326 197 } buffers that may be present for loops). 

3; 1558 1879 Cdbg$k_cis_acbuf, 

3; 1559 1680 dbg$k_cis_screen) : 


— 
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12: 


FROM 1 TO .count+1 DO 


RETURN sts$k_severe; 
END; 


} Anything else is a DEBUG internal coding error. 


C INRANGE 
OUTRANGE) : 


BEGIN 
Fog NEN TOCA SSNS TUNE NECITE_LAET 3 


TES; 
RETURN sts$k_success; 


END; ! End of dbg$nexecute_exit 


»PSECT 
OBS P.AAR: .ASCII 


4? 0 

45 0 

0001 P.AAS: .ASCII 
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i 
4 NOT dbg$ncis_remove (TRUE, .message_vect) 


DBGSPLIT,NOWRT, SHR, PIC,0 
<27>\DBGATSIGN\<92>\DBGSNEXECUTE_EXIT\ 
<27>\DBGATSIGN\<92>\DBGSNEXECUTE_EXIT\ 


SYSSCLOSE, SYSSEXIT 
DBGSCODE,NOWRT, SHR, PIC,0 
DBGSNEXECUTE_EXIT, Save R2,R3,R4,R5 
DBG$GB_DEF OOT, R5 

DBGSNCIS_REMOVE, R4 


DBGSGL_CISHEAD, LINK 
NKY, #6 


(LINK), #5 
(LINK), #4 


£15 | 
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| 
$-4$,- ; | 
$-4$,- : 
19$-4§ F 
00000000' FF of 9050 5$: PUSHAB B AAS + 1693 
50 08 A 0 0038 6$: OVL (LINK), PREV_LINK + 1600' 
98 4 AO F QO0SC CASEB a tmnt #0, #8 3 1601. 
007 007D 006 029 0061 7$: <WORD 9$-7$,= : 
007D 7D 0070 07D 0064 1es-7$.~ ; 
07D 0071 15$-7$: - : 
153-/7$,- : 
128°03-2 : 
15$-7$.- : 
| 15$-7$.- : 
15$-7$,- : 
15$-7$ : 
00000000" EF 9F 90073 PUSHAB P.AAR + 1668 
1 0D 00079 8s: PUSHL #1 : 
00028362 8F DD 0007B PUSHL #16470 : 
000000006 00 03 FB 00081 CALLS #3, LIBSSIGNAL : 
69 11 00088 BRB & + 1601 
0D 65 £9 OOOBA 98 BLB BGS$GB_DEF_OUT, 10$ + 1615 
000000006 00 9F 90080 PUSHAB DBGS$GL~LOGF + 1617 
EN G3 SE $00m vos, EMRE Seestarae°ou te 
000000006 00 0110 8F AB 9009¢ BISW2 begs 5BGS$GV_CONTROL > 1619 
50 000000006 00 00 000A MOVL § DBGSGL_SMG_ERIT_HANDLER, RO + 1626 
03 13 OOOAC BEQL 11$ : 
60 00 FB OOOAE CALLS #0, (RO) : 1628 
7E 000000006 00 10000000 8F C9 000B1 11$:  BISL3 #268435456, DBGSGL_EXIT_STATUS, -(SP) + 1630 
000000006 00 01 Fe 000BD CALLS #1, SYSSEXIT ; 
48 11 000C4 BRB 23§ > 1601 
52 0¢ CO 000C6 12$:  ADDL2 #2, R2 + 1641 
53 D4 00009 Ce + 1642 
0B 11 000CB BRB 14$ : 
08 AC DD OOOCD 13$:  PUSHL MESSAGE_VECT : 
07 0D 00000 PUSHL #1 F 
64 02 FB 90002 CALLS #2, DBGSNCIS_REMOVE ; 
Hi 50 £9 000D BLBC =—_ RO. 21 : 
FI F3 00008 14$: § AOBLEQ Re 1, 13$ : 
11 0000 BRB 238 + 1645 
: D6 00 DE 15$: INCL R2 > 1656 
53 D4 OO0E CLRL > 1657 
0B 11 O0Ee BRB 17$ ; 
08 AC DD OOOE4 16$: | PUSHL MESSAGE_VECT : 
1 OD QOE7 PUSHL F 
64 F £9 CALLS #2, DBGSNCIS_REMOVE ; 
17 E EC BLBC =_- RO, 218 : 
FI 53 52 OF EF 17$:  AOBLEQ R2, I, 16$ : 
19 11 OOOF 188: BRB 23§ > 1660 
2 D6 000F5 19$: INCL R : 1682 
D4 OOF CLRL > 168 
OF 11 000F9 BRB 2$ : 
08 AC DD OOOFB 208:  PUSHL MESSAGE_VECT : 
1 DD 000F PUSHL @# : 
64 3 FB 1 CALLS a, DBGSNCIS_REMOVE : 
4 £8 001 BLBS RO. 22$ : 


5 
ee 
aS 


: 1685 
+ 168 
9 


AOBLEQ R2, I, 208 
wi, RO 


MOVL 
RET 


qo 


50 
50 


Routine Base: 


ED 


DBGSCODE + 0757 


274 bytes, 


3; Routine Size: 


1 


1701 


; 1580 
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| 
| 
GLOBAL ROUTINE DBGSNPARSE_EXITLOOP (INPUT_DESC, VERB_NODE, MESSAGE_VECT) = | 
ee } 


! FUNCTIONAL DESCRIPTION: 
This routine is the parse network for the EXITLOOP command. 
A single noun node is constructed containing the integer 
argument, if there is one. 


FORMAL PARAMETERS: 


pofefolelojlolol~) 


CONAN WWN 0 ODNOAUE WIN SO ODNAUE WIN $ O ODNOAUS WN (OO ONOAUES WN" OOONAOUS WN 


PUPP 
CESSES SESE RRO 


SIDE EFFECTS: 
NONE 


BEGIN 


i 
| 
' | 
1 : | 
Rd | 
: input_desc - string descriptor for the remaining input. 
; verb_node - ey verb node - the head of the command execution | 
: ree. 
1 : 
98 1 : message_vect - the address of a longword to contain the address 
238 1 : of a standard message argument vector 
601 5 i IMPLICIT INPUTS: 
60 r4 ; 
60 2 : NONE 
604 § : 
eRe § } IMPLICIT OUTPUTS: 
+4 2 ; A command execution tree is contructed for use by DBGSNEXECUTE_EXITLOOP 
09 3 | ROUTINE VALUE: 
; An unsigned integer lomgword completion code 
33 1 | COMPLETION CODES: | 
3 i sts$k_success (1) - success _ | 
3 sts$k_severe (4) - error in input 
39 1 i 
4 : 
& : 
4 !- 
4 
4 
4 
4 
& 
4 


P 
verb_node : REF dbg$verb_node; 


LOCAL 
noun_node : REF dbg$noun_node; 


MILA APPOPITPUIPINIPINININD 4 2 2 OO OO oO 


PAEAAAAAAAAAAAAAAA AAA AAAAO 
WN —ODOONOUE WN “CO DOONOUSWN—O 


BIND 
dbg$cs_cr = UPLIT BYTE (1, dbg$k_car_return); 
noun_node = dbg$get_tempmem (dbg$k_noun_node_size); 


a 


ae 


verb_node (dbg$l_verb_object_ptr] = .noun_node; 


ee a ee a a a ee ee ee el a ee ae ae a ee a el ee ae ee a a ed 
a a ee a a a ee el el el a ce ee a a a a a ee ed ad 
Set i >i Sipps t te  D SD BD D Bf fe fe ee fi Se Sit Sin in tn ite Se BS tee be te i i be i bbb 
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3; Routine Size: 


ak ss tt 
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74 bytes, 


noun_node Cdbg$l_noun_value] = 1 


ELS 


IF NOT dbg$nsave_decimal ay ( input.d 


THEN 


-mesSage_ yh ape 


RETURN sts$k_severe; 
RETURN sts$k_success; 


END; 


000000006 


08 


000000006 


000000006 00 
04 


50 


0004 00000 
04 ODD itd 
01 FB 00004 
50 00 00008 
08 AC 00 4 
52 00 0001 
01 0D 00016 
00000000" EF 9F 00018 
04 Ag DD OOOTE 
05 FB Boose 
50 E9 00028 
01 00 00028 
16 11 000 
oc as DD 000 
52 0d 000 
04 AC ODD 86 
50 EB 00 
ry ES 'sF¢ 
be Goods 
01 00 Bass 
4 0004 


Routine Base: 


14..13,-1984 
12-Sep-1986 


I meas (input desc, dbg$cs_cr, 1) 


3:18:34 — EDeeuG. SacSbacarsi6n.050; 1 


DEBUG. SRC 


“noun, “valued, 


! End of dbg$nparse_exitloop 


OD 01 OOOED P.AAT: 


DBGSCODE + 0869 


-PSECT 
-BYTE 


DBGS$CS_CR= 


=e 
wn 
oa 


~ 
wn 


DBGSPLIT,NOWRT, SHR, PIC,0 
1, V3 
P.AAT 


DBGSCODE,NOWRT, SHR, PIC,0 
DBGSNPARSE_ EXITLOOP, Save R2 
“i. DBGSGET TEMPMEM 
RO, NOUN_NODE 
VERB NNODE™ RO 
NOUN “NODE, 8(RO) 
$cs 
INPUT £5568, 
#3, DEGSNMATCH 
#1. (NOUN_NODE) 
MESSAGE VECT 
ret 4 NOE 
i. jlo DECIMAL_INTEGER 
#4, RO 
- RO 
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] 
| 
; 16 ; 1778 1 GLOBAL ROUTINE DBGSNEXECUTE_EXITLOOP (VERB_NODE, MESSAGE_VECT) = 
; ig 5 ine i 1e4 
; 1696 1775 | i FUNCTIONAL DESCRIPTION: | 
; 1658 1579 1/ This routine is the execution network for the EXITLOOP command. 
; 1659 1778 1! EXITLOOP N takes you out of N Levels of loops. This is done 
3; 1660 1779 1! by removing the appropriate buffers from the Linked List 
3 1933 1780 : : of command buffers. | 
; 1668 178e 1 | FORMAL PARAMETERS: | 
; 1665 1784 1: verb_node - The head of the command excution tree which in the case | 
; 1666 1785 1! of EXITLOOP consists of this verb node, and a single 
3 1960 1788 ; noun node with the integer argument. 
5 1669 17s 1/ message_vect =- The address of a longword to contain the address of a 
3 1970 178) : message argument vector 
; 1672 791 { IMPLICIT INPUTS: 
; 1ore 1738 ; dbg$gl_cishead - head of command input stream 
; 1676 1795 | { IMPLICIT OUTPUTS: | 
; lore 1797 : ; The CIS data structure may be altered. 
3 ‘ 
3 1on0 1 ! } On failure, a message argument vector is returned. | 
; 1682 1801 { ROUTINE VALUE: 
: Her: 1808 ; An unsigned integer longword completion code. | 
; 1686 1805 1 ! COMPLETION CODES: 
; +4 dd : sts$k_severe (4) - The command could not be executed. 
; 1on0 19% : : sts$k_success (1) - The command was executed. 
; 1698 111 i SIDE EFFECTS: | 
> 1694 1818 1/ This routine may force ie cxit of WHILE or REPEAT Loops. Nodes may be 
$ 1m 1815 ; } removed from the command input stream. 
; 189 1816 ine | 
> 1698 1817 1 
: 1699 1313 BEGIN 
1701 1820 | 
: 1708 1821 verb_node : REF dbg$verb_node; 
; 1704 1858 LOCAL 
3 1705 1824 cis_ptr : REF cis$link, : A pointer to a CIS buffer f 
3 1708 1825 count, ' Local counter of number of cislinks 
: HEA tA 1 $ } to be removed. 
3; 17 1 init _num_levels, ' Number of Levels of loop to exit : 
3; 1709 1828 num_Cevels, ! (copy of) Number of levels of loop to exit 


7 


ata 69, ~ w & | 
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cis inpbuf, 
cis_acbuf): 
BEGIN 


! If the number of loops encountered so far 
! is zero, report that we 
are not in a loop. 


iF -num_levels EQL .init_num_levels 
THEN 


19 4 noun_node : REF dbg$noun_node; ! Local pointer to the noun node | 
1 1 
1§ § Recover the argument to EXITLOOP. 
15 4 noun_node = .verb_node Cébgst verb_object_ptrd; 
1g 5 num Tevels = .noun_node Cdbg$T_noun_valued; 
| § inif_num_levels = snum_levels; 
19 3 Initialize cis_ptr and count. 
1 40 cis_ptr = .dbg$gl_cishead; 
; 1 count = 0; 
¢ ‘§ Loop past NUM_LEVELS occurences of repeat or while loop buffers. 
6 5 WHILE .num_levels GTR 0 00 
‘ st8 BEGIN 
3 848 CASE .cis_ptrlcis$b_input_type] FROM dbg$k_cis_minimum TO 
0 849 dbg$k_cis_maximum OF | 
Ha SET 
3 526 | 
34 85 ! If the top level CIS indicates that we are not inside 
35 S28 : of a loop, then the EXITLOOP command is an error. 
37 896 tc is_dbgSinput , 
8 85 cis_ra 
858 
859 
860 
861 
BS 
86 
864 
86 
86 
86 
86 


-message_vect = Gopsnnche_org_vect ( 
dbg$_notinloop 


MINE SEBEL EW 
OOOnNOW 
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| 
| 
| 
! If we have encountered loops, but we get here, | 
' then we were 
! in a loop but the argument to EXITLOOP 
was too large. 
| 
j 
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LSE 
-message_vect = dbg$nmake_arg_vect ( 
bgs_exitarg. + «init_num_levels); 
hye stsdk_severe; 


SALAS 


If we are in an if clause, then we want to peel off that 
e368. We increment the count of the number of CIS buffers | 
o remove. 
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Ccis_if] : 

BEGIN 

count = .count + 1; 

cis_ptr = .cis_ptr Ccis$a_next_link); 

END; 
! If the top layer is a loop, increment the count of the 
! the number of layets of buffers to remove. Decrement 
the count of the number of remaining loops. 
Ccis_re_eat, 
cis_while, 
cis_for] : 

BEGIN 


count = .count + 1; 
num_levels = .num_levels - 1; 
cigyete = .cis_ptr Ccis$a_next_link]; 


} Anything else is an error. 


C INRANGE 
OUTRANGE) : 


BEGIN 
Fe none E "ORSATSLGNNSOTINE NE CUTE PRITLORP"D 3 


TES; 
END; ! While Loop 


' Now, if we get to this point without an error, we strip off 
the CIS buffers. 


INCR i FROM 1 TO .count DO 
NOT dbg$ncis_remove (TRUE, .message_vect) 


RETURN sts$k_severe; 
RETURN sts$k_success; 
END; ! End of dbg$nexecute_exitloop 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
P.AAU: .ASCII <31>\DBGATSIGN\<92>\DBGSNEXECUTE _EXITL\ 
eASCII = \OOP\ 


49 53 54 41 
45 54 55 43 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


.ENTRY DBGSNEXECUTE_EXITLOOP, Save R2.R3.R4.R5,R6 
MOVAB DBGSNMAKE ARG _VECT, Ré 
MOVL § VERB_NODE; R 
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3; Routine Size: 162 bytes. Routine Base: DBGSCODE + 0883 


08 AO D £ F 
i ae ae ae 1 
2 000000006 00 »D 17 MOVL § DBGSGL_CISHEAD, T1IS_PTR : 1820 
4 D4 0001 CLRL UNT + 1841 
3 D8 0 1$: ist NUM_LEVELS + 1845 
02 A2 8F 000 CASEB 2(CIS_PTR), #0, #8 + 1848 
0029 9099 009 0 § 029 2$ WORD ¢ $7- : 
$080 004¢ 0050 0080 031 4$-2$.- : 
001 0039 4$- $.- : | 
8$- $,- : 
oe- $,- : 
$- $,- e 
95-38-- aoe 
00000000° FF 9F 00038 3S: PUSHAB P.AAU + 1910 
1 DD 00041 PUSHL #1 : 
00028362 8F DD 90045 PUSHL #164706 ; 
000000006 00 03 FB 00049 CALLS #3, LIBSSIGNAL : 
ce 11 00050 BRB + 1848 
55 53 01 00052 4$: CMPL § NUM_LEVELS, INIT_NUM_LEVELS + 1866 
08 12 6005 BNEG 5 : 
00028640 8F oD 00057 PUSHL #167488 : 1868 
6 01 Fe s00e3 CALLS #1, DBGSNMAKE_ARG_VECT : 
92 DD b0e? 58: PUSHL INIT_NUM_LEVELS : 1878 
01 DD 00064 PUSHL : 1877 
00028648 8F DD 00066 PUSHL #167496 F 
6 03 FR 0006C CALLS #3, DBGSNMAKE_ARG_VECT : 
08 BC 0 00 O06F 6$: MOVL RO @MESSAGE_VECT : 
4 11 000 BRB 12$ : 1879 
4 06 00075 7$ INCL COUNT : 1888 
04 11 0007 BRB 9$ : 1889 
54 06 0079 8$ INCL COUNT : 1900 
33 D7 00078 DECL NUM LEVELS > 1901 
52 08 A2 00 0007D 9$ MOVL  8(CIS_PTR), CIS_PTR : 1902 
9D 11 00081 BRB 1$ > 184 
53 D4 000 3 10$ CLRL > 1920 
13 11 000 BRB 13$ : 
08 AC DD 00 7.11%:  PUSHL MESSAGE_VECT : 
01 DD OOO8A PUSHL #1 : 
LL : NCIS_REMOV : 
000000006 0 F CALLS H gs C1S_REMOVE 
0 4 D0 0 3 128: ROVE #4; R + 1922 
9 53 54 F3 9A 13$:  AOBLEQ COUNT, I, 11% + 1920 
0 01 p 09 MOVL #1, RO + 1924 
4 OOOA RET > 1926 


oou 


| 
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; 1908 1927 1 GLOBAL ROUTINE DBGSNPARSE_DECLARE (INPUT_DESC, VERB_NODE, MESSAGE_VECT) = 

: 164 

; 181 13 : i FUNCTIONAL DESCRIPTION: 

: 18 i is constructed. 
: R nd. A command execution tree is ¢ 

: i 13 ; i i Seis ious nsanbtes ® noun node for each name that is declared. 

; 1 / 

; 1818 13 4 1 | FORMAL PARAMETERS: 

; 1818 13 $ : input_desc - The present command Line input descriptor 
: 1820 \° 4 } verb_node - The already existing command verb ape 
; i - ord to contain the 
1858 190) a salrens af uatenne arguments enter 
: 942 1/3 

; 1858 1348 } | IMPLICIT INPUTS: 

; 1837 1945] NONE 

: 1898 1969 ! IMPLICIT OUTPUTS: | 

: 1839 1969 ' On success, the appropriate command execution tree is constructed. 

; 1838 1381 ' | On failure, a message argument vector is constructed 

: 1838 1988 i ROUTINE VALUE: 

; 1839 1985 An unsigned integer longword completion code 

: 1839 1987 COMPLETION CODES: 

; 18e} 1988 : sts$k_severe (4) - Error in parsing 

; 1868 1961 sts$k_success (1) - Successful parse 

: 1848 1968 ! SIDE EFFECTS: 

: 18e9 1965 1! None 

: 1848 1208 1! 

. nt ee 

: 1881 1969 BEGIN 

: 1888 1974 

; INPUT DESC: REF dbg$stg desc, 

: 1888 1998 VERB_NODE : REF dbg$verb_node; 

We ES ou me 

: = UPLIT BYTE (1, dbg$k_colon), 

1 OS Re Se 

7. 197 Gbases naa = UPLIT BYTE (7; *ABDRESS*T. } 

el 188 cbobesceadress ©: UBLIT QVTE (7 TABDRESEIT" 

2 5 19 : dbg$cs_procedure = UPLIT BYTE (9, *PROCEDURE"), 

: 188 19 dbg$cs_string = UPLIT BYTE 9. a 

> 1865 19 § dbg$cs_value = UPLIT BYTE (5, L : 
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LOCAL 
first_time: BYTE, 


Link, 
noun_node: REF dbg$noun_node; 


! Flag which is true the first time 

: around a loop. 

! A Link in the command execution tree. 
! Pointer to a noun node. 

Set the first_time flag to true for the first time around the Loop. 
first_time = TRUE; 

: Loop through the List of declarations. 


WHILE TRUE DO 
BEGIN 


Allocate a noun node and Link it in. 
If .first_time 
THEN 
BEGIN 
Link = verb_node Cdbg$l_verb_object_ptrd; 
first_time = FALSE; 
END 
ELSE 
Link = noun_node Cdbg$l_noun_Link]; 
noun_node = dbgSget_tempmem (dbg$k_noun_node_size); 
- Link = .moun_node; 
Read the name being declared. 


iF NOT dbg$nread_name (.input_desc, noun_node [dbg$l_noun_value], 
THE -message_vect) 


N 
RETURN sts$k_severe; 
Look for a colon 
if _dbgSnmatch (,input_desc, dbg$cs_colon, 1) 


Look for a keyword following the colon. 
SELECTONE TRUE OF 
SET 
Cdbg$nmatch C. inous desc, dbgscs address, 1)] : 
noun_node (Cdbg$T_noun_value2] = define_address; 


Cdbg$nmatch a. input desc, dbg$cs_command, 1)] : 
noun_node (dbg$T_noun_value2] = def ine_command; 


! Cdbg$nmatch (,input_desc, dbgSss procedure. 93 : 
: noun_node fdbg$l “noun. value = define_procedure; 


! Cdbg$nmatch (.input_desc, dbgscs string. 1]: 
: noun_node fdbg$l “noun. value2 = define_string; 
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END; 
:2009 


1923 ed 
1926 ri} 
1925 04 

19 $ 044 
19 045 
1928 pa6 
1929 04 

1930 048 
1982 050 
HO 
1985 038 
1936 054 
1937 055 
1938 056 
1939 057 
1940 058 
1941 059 
1386 060 
194 2061 
1944 O86 
1945 06 

1946 064 
1947 2065 
1948 $068 
1949 067 
1950 2068 
1951 2069 
1336 sont 
195 071 
1954 $org 
1955 207 

1956 2074 
1957 2075 
1958 2076 
1959 2077 
1960 2078 
fhe 2 2079 
R 


53 53 
44 4E 
45 52 55 44 
47 


Cdbg$nmatch (.input 


desc, dbgscsv 


noun_node Cdbg$T_noun_value2 


alue, 1)] : 
= define_value; 


} Anything else following the colon is an error. 


COTHERWISE) : 
report_error; 


TES 


report_error; 


45 
41 
45 
4E 


END; ! While loop 
: If we get here, the parse was successful. 
RETURN sts$k_success; 
1 
L1 
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} The default type is address. 
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ferenced LOCAL symbol NOUN_NODE is probably not initialized 
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E 

noun_node Cdbg$l_noun_value2] = define_address; 
Look for the comma which separates declarations. 
if NOT dbg$nmatch (.input_desc, dbg$cs_comma, 1) 


: If end-of-Line, then just exit the Loop. 

IF dbg$nmatch (.input_desc, dbg$cs_cr, 1) 

EXITLOOP 

Anything other than end-of-Line or comma is a syntax error. 


-PSECT DBGSPLIT,NOWRT, SHR, 


-BYTE 1, 58 
-BYTE 1, 44 
BYTE 3, 15 
BYTE 7 

-ASCII \ADDRESS\ 
BYTE 7 

-ASCII = \COMMAND\ 
BYTE 9 

-ASCII \PROCEDURE\ 
-BYTE 6 

eASCII = \STRING\ 


PIC,0 


veenes™ 


08 


000000006 


000000006 


oc 


1p-sep-1984 23:52: 
14-Sep-1984 13:16: 


45 $5 4c 41 Sa boqay PAS: 


OOFC $8000 
57 00000000G 00 9€ 00002 
$6 Sopoou00" fF $e o0008 
53 04 AC 00 aoot$ 
09 55 €9 0001 
AC 0 C1 OQOO1A 
55 94 OO0O1F 
04 11 aed 
54 08 A2 9E 00023 
04 DD 00027 
00 01 FB 4044 
52 50 DO 00030 
64 52 00 00033 
0c AC DD 00036 
26 DD 00039 
5 DD 00038 
00 03 FB 0003D 
03 50 8 pote 
0097 1 00047 
01 OD O004A 
FC 4g SF 0004C 
5 DD 0004F 
67 93 FB 00051 
39 0 €E9 00054 
01 OD 00057 
02 4g OF B02? 
5 DD 0005C 
67 93 4 005E 
01 D1 00061 
sf 13 00064 
1 OD Beek 
OA 46 9F 000 
5 DD 00068 
67 23 fe B09 
a Gt 0009 
ne a3 06 3F 
23 + pp 18 
ag 0D it 
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i} AX-11 Bliss=32 v4.0-7 
16:34 DEBUG. SRCIJDBGATSIGN.B 
BYTE 5 
eASCII \VALUE\ 
_COLON= P. AAV 
“COMMA= AAW 
CR= ~AAX 
“ADDRESS= P.AAY 
= COMMAND= AAZ 
“PROCEDURE= P.ABA 
“STRING= ABB 
“VALUE= ABC 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
-ENTRY DBGSNPARSE_DECLARE, Save R2,R3,R4,R5,R6,R7 
#OVAB DBGSNMATCH, R7 
MOVAB DBGSCS_CR, R6 
MOVB #1, FIRST TIME 
MOVL _INPUT_DEST, 
BLBC FIRST-TIME, 2$ 
ADDL3 #8, VERB_NODE, LINK 
CLRB FIRST_TIME 
MOVAB 8(R2), LINK 
PUSHL 4&4 
CALLS #1, DBGSGET_TEMPMEM 
MOVL RO, NOUN_NODE 
MOVL NOUN_NODE, (LINK) 
PUSHL MESSAGE VECT 
PUSHL NOUN_NOBE 
PUSHL 
CALLS #3, DBGSNREAD_NAME 
LBS Rg 4$ 
Rw 12$ 
PUSHL #1 
PUSHAB DBG$CS_COLON 
PUSHL 
CALLS #3, DBGSNMATCH 
LBC RO, 6$ 
PUSHL 
PUSHAB DBGS$CS_ADDRESS 
PUSHL R 
CALLS #3, DBGSNMATCH 
CMPL RO, #1 
EQL 
PUSHL #1 
PUSHAB DBGS$CS_COMMAND 
PUSHL 
CALLS #3, DBGSNMATCH 
CMPL RO, #1 
BNEQ ; 
MOVL nee 12(NOUN_NODE ) 
BRB 7 
PUSHL #1 
PUSHAB DRGSCS. VALUE 
PUSHL R 
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7 F CALLS #3, DBGSNMATCH : 
1 8 of 3 g CPL 45 #1 : 
Oc A2 $ 06 90 A MOVL #5, 12(NOUN_NODE) 3 2043 
OC A2 54 D0 6 $$: MOVL #1, 12(NOUN_NODE) : 2055 
01 pp 94 7$: PUSHL #1 : 2059 
FE AG OF 096 PUSHAB DBGSCS_COMMA : 
53 DD 000 PUSHL : 
67 FB 0098 CALLS #3, DBGSNMATCH : 
03 g : 009 BLBC ~=_«aRO,, 8S : 
FF 1 OOOA BRW 1$ ; 
07 DD OO0A4 8S PUSHL #1 > 2064 
0048 8F BB B00A6 PUSHR #*M<R : 
67 03 FB OOAA CALLS 3, r“DRgSNMATCH : 
35 50 €8 OOOAD BLBS : 
1 DD 90080 9$: PUSHL : 2070 
0048 8F BB 000B2 PUSHR #*M<R3,R6> ; 
67 03 FB 90086 CALLS #3, DBGSNMATCH : 
OF 50 €9 00089 BLBC Osea ; 
00028000 BF DD 000BC PUSHL #164048 : 
000000006 00 01 FB 000¢2 CALLS #1, DBGSNMAKE_ARG_VECT : 
lg 11 000¢ BRB 11$ ; 
53 DD 000CB 10$ PUSHL R3 ; 
000000006 00 01 FB 000CD CALLS #1, DSGSNNEXT_WORD : 
50 DD 00004 PUSHL RO : 
000000006 00 01 FB 00006 CALLS #1, DEGSNSYNTAX ERROR : 
oc «BC 50 DO O00DD 11$: MOVL RO, SAGE_VECT 3 
50 04 DO 000E1 12$:  MOVL ‘a : 
04 000E4 RET : 
50 01 DO OOOES 13$: MOVL , RO + 2077 
04 000E8 RET : 2079. 


; Routine Size: 233 bytes, Routine Base: DBGSCODE + 0955 
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H 1265 8 ? ! GLOBAL ROUTINE DBGSNEXECUTE_DECLARE (VERB_NODE, MESSAGE_VECT) = 

3; 1965 0 ¢ 1 +4 

; 1208 0 1 ! FUNCTIONAL DESCRIPTION: 

3; 196 0 2 1: 

>; 1968 0 7% This routine executes the DECLARE command. This is done by 

3; 1969 0 1! retrieving the strings that were passed in at @, and binding 

; 1309 +H : } them to the names being declared. 

; 1376 089 1 ! FORMAL PARAMETERS: 

; 197 090 1! 

: 1974 oy, 7 3 verb_node - The command verb node which is the start 
; 13? $36 ; of the command execution tree 

3; 1977 B3¢ 1: message_vect - The address of a longword to contain the 
; 1978 ve Ft address of a message argument vector 

3 1979 096 1! 

3; 1980 097 1! IMPLICIT INPUTS: 

; 1981 098 1! 

3 1386 099 1! NONE 

3; 198 100 1! 

3 1984 101 1 ! IMPLICIT OUTPUTS: 

3; 1985 106 . 7 

3; 1986 1035 1! The local DEFINE List for the current procedure is modified. 

; bt 1 ! } On failure, a message argument vector is returned 

3; 1989 2106 1 ! ROUTINE VALUE: 

3; 1990 sin 1! 

; 1 $108 : } An unsigned integer longword completion code 

: 1988 sii? } } COMPLETION CODES: 

3 Had gii¢ : sts$k_success (1) - Indicates the file was created and connected 

; 444 gig : : sts$k_severe (4) - Failure, file not created. Message argument vector returned 
3; 1999 2116 1 ! SIDE EFFECTS: 

; 2000 aes. 

; 2001 118 1! None. 

; Bog 119 1 !<- 

3 200 120 1 

3 2004 121 BEGIN 

3; 2005 1 ; 

: $009 15 | 

; 200 124 VERB_NODE : REF dbg$verb_node; 

: 2008 125 

; 2009 126 IND 

; 2010 127 dbg$cs_cr = UPLIT BYTE (1, dbg$k_car_return), 

: Ah \¢8 dbg$cs_left_paren = UPLIT BYTE (1, dbg$k_leff€_parenthesis); 

3 O13 186 LOCAL : 
3; 2014 131 qiebat flag, . t leg that is returned from Gogtdet _syn_tine 
: 2015 1 ¢ nput_desc: dbg$stg_desc, ' Str ng descriptor for use wit 

3 Big 1 : AEI and El 

3; 201 134 len, ! Length of string 

; 2018 135 new_string: REF VECTORC,BYTE], ! Pointer to char string 

3; 2019 136 noun_node: REF dbg$noun_node, ! Points to a noun node 
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0 param_name Points to a string with ‘ZPi" 

0. replaced. flag, Fyeg returned from dbg$def_sym_add 
returned_kind, ! King returned from dbgsde(.$7 find 
returned_value:REF VECTORC BYTE), ! Value returned from Gbg$def_sym_find 
symid_list, ; Points to a symid ‘ist 
value; ! Points to the ‘‘value’’ of the symbol 


Obtain the first noun node. 
noun_node = .verb_node Cdbg$l_verb_object_ptrJ; 
Loop through the List of declared names. 
WHILE .nmoun_node NEQ 0 DO 

BEGIN 
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Increment the count of the number of names processed. 


dbg$gl_param_count [.dbg$gl_pr_nest_level] = 
“A 1+ “Gbosel porse count C.dbg$gl_pr_nest_level); 


Obtain the name of the corresponding parameter. 


iF NOT dbg$construct_param_name ( 
-dbg$gl_param_count [.dbg$gl_pr_nest_level], 


paren_néae, 
ALSE, 
-message_vect) 
THEN 
RETURN sts$k_severe; 
Look up the corresponding value. 


if NOT Gogtsef gyn find (.param_name, returned_kind, returned_value, 
one global_flag, .message_vect) 


BEGIN 
! A parameter definition was not found. This most Likely 


! indicates more declarations than there were parameters. 
Report an error. 
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smessage_vect = dbgSnmake_arg_vect (dbg$_declarerr, 1, 
enoun_node [dbg$l_noun_value)); 
ga sts$k_severe; 


Check that the definition that was found was of type parameter. 
If not, report an internal DEBUG error. 


returned_kind NEQ define_parameter 
$DBG_ERROR("DBGNDECL\NEXECUTE_DECLARE 10°); 


FF. 
HEN 
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! Check that the definition was local and not global. If it was global, 
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Org : we report an internal error. 

07 iF .global_fla 

080 =< = 

08 SDBG_ERROR('DBGNDECL\NEXECUTE_DECLARE 20°); 

0 

0 ' Convert the definition to the appropriate type. 

085 ! First turn the string into an Input descriptor, 

! Note = we need to append a carriage return to the end 
08 of the string first. 


len = .returned_value(0); 

new_string = dbg$get_tempmem (1+.len/4); 
ch$move (.len,returned_value(1],.new_string); 
new stringL.len] = dbg$k_car_return; 
input_desc Cdsc$w_length] = ‘Llen+i; 
input_desc ([dsc$a_pointer] = .new_string; 


Case on the kind of symbol. 


SSSSS2S223S2 
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CASE_.noun_nodeldbg$l_noun_value2) 
— define_lowest TO define_highest OF 


Cdefine_address] : 
BEGIN 
LOCAL 
primptr; 


Call the address expression interpreter. 
if NOT DBGSNPARSE_ADDRESS (INPUT_DESC, PRIMPTR, 
.DBG$GB_RADIXCOBG$B_RADIR_ INPUT) 
a TOKENSK-TERM_NONE, .MESSAGE_VECTS 
RETURN sts$k_severe; 
co dbg$nget_symid (.primptr, symid_list, .message_vect) 


RETURN sts$k_severe; 
J ae dbg$ncopy_desc (.primptr, value, .message_vect) 


RETURN sts$k_severe; : 
GbaSsta_lock syatd (.symid_list); 
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Cdefine command, define_string) : 
BEGIN 


) 
value: REF VECTORC,BYTE); 


! In these cases we already have the definition in 
! the appropriate form (a counted string). We need to 
! allocate space for a copy and then copy the counted 
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; string. 


wt 


value = dbg$get_memory ((( fgturned, voluelesot)95)/4) 
value(0) = returned valuel0 ; 
he (.returned_valuel0J, returned_value(1], value(1J); 


{define procedure) : 
BEGT 


' For this case we want to pict up a sequence of DEBUG 


PEASE MAMIANMIIVIVI 
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temp_desc; ! Variable to hold a pointer to a value descriptor 


! For this case we just call the expression interpreter 
to parse a language expression. 


if NOT DBGSNPARSE_EXPRESSION (INPUT_DESC, 
.DBG$GB_RADIXCDBG$B_RADIX INPUT 
TEMP_DESC, TOKENSK_TERM_NONE, .MESSAGE_VECT) 
RETURN sts$k_severe; 


Copy the descriptor into permanent memory. 


0 
4 
5 ! commands inside of parenthesis. 
§ } First we eat the left paren. 
8 IF NOT dbg$nmatch (input_desc, dbg$cs_left_paren, 1) 
9 66 THEN - petty it ttn 
: 44 report_error; 
§ 69 ! Call the routine which picks up a sequence of 
? 4 } DEBUG commands. 
5 Le: IF NOT dbg$nsave_break_buffer (input_desc, 
6 7 value, 
7 74 emessage_vect) 
8 275 THEN 
4 sf6 RETURN sts$k_severe; 
1 78 END; 
; 79 
80 Cdefine_ value] : 
281 BEGIN 
seg LOCAL 
28 
284 
see 
86 
287 
288 
3 
0 
1 


OO O00000 


oo 
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iF NOT dbgS$nget_symid (.temp_desc, symid_list, .message_vect) 
RETURN sts$k_severe; 

IF NOT dbg$ncopy_desc (.temp_desc, 
value, .message_vect) 


RETURN sts$k_severe; 
dbg$sta_lock_symid (.symid_list); 


END; 
e 
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} Anything else is an error. 


CINRANGE ,OUTRANGE) : 
$DBG_ERROR('DBGNDECL\NEXECUTE_DECLARE 30°); 


TES; 


Add the appropriate symbol definition. 
if NOT dbgSdef_sym_add (.noun_node Cgbg$l_noun_valued, 
-noun_node —— noun_value2j, .value, 
- FALSE, replaced_flag, <message_vect) 
RETURN sts$k_severe; 
: Set up for the next time around the Loop. 


noun_node = .noun_node Cdbg$l_noun_link); 
END; ! while loop 


Return success. 
RETURN sts$k_success; 
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2 END; ! End of dbg$nexecute_decls 2 
.PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
OD 01 0013C P.ABD: .BYTE 1, 13 : 
28 01 OO13E P.ABE: .BYTE 1, 40 ; 
43 45 58 45 GE SC 46C 43 45 44 GE 47 42 44 1C 00140 P.ABF: ASCII <28>\DBGNDECL\<92>\NEXECUTE_DECLARE 10\ : 
30 31 20 45 52 41 4C 43 45 46 SF 45 54 55 OO14F : 
43 45 58 45 4E 5c 4C 43 45 44 4E 47 42 44 1C 0015D P.ABG: .ASCII <28>\DBGNDECL\<92>\NEXECUTE_DECLARE 20\ : 
30 32 20 45 52 41 46C 43 45 44 SF 45 54 55 0016C ; 
43 45 58 45 4— SC 4C 43 45 44 4E 47 42 44 1C OO17A P.ABH: ASCII <28>\DBGNDECL\<92>\NEXECUTE_DECLARE 30\ : 
30 33 20 45 52 41 4C 43 45 446 SF 45 54 55 00189 : 
DBGSCS_CR= P.ABD 
DBGSCS-LEFT_PAREN= P.ABE 
.PSECT DBGSCODE.NOWRT, SHR, PIC,0 

OFFC 00000 ENTRY DEGSNEXECUTE DECLARE, Save R2,R3,R4,R5,.R6,- ; 2080. 
R7,R8,R9,R10,R11 : 
58 00000000" EF SE 0000 MOV P.ABF. R{l : 
3 C2 000 SUBL2 #48, §P : 

5 4 AC 00 000 ¢ MOVL VERB_NODE, RO > 2146 
38 8 AO DO 0001 MOVL 8(ROJ, NOUN NOD ; 

5 AC D 14 MOVL MESSAGE VECT, R : 3164 

; b 18 1$: TSTL = NOUN_NO*" ; 2150 
1A BNEQ $ : 
OA 3 1c BRW 4$ : 

50 00000000" EF DO OO01F 2%: MOVL  DBGSGL_PR_NEST_LEVEL, RO > 2155 
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RETURNED_ VALUE 
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#5, DEGSDEF_SYM_F IND 
(NOUN_NODE) 


SP) 
RAM_NAME 
G$GC_PARAM_COUNTCRO] 


#167520 

#3, DBGSNMAKE_ARG_VECT 
R (R9) 
RETURNED_KIND, #6 

6$ 

R11 
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#164706 

#3, LIBSSIGNAL 
GLOBAL_FLAG, 7$ 
P.ABG 


#3, LIBSSIGNAL 
RETURNED VALUE, R7 
#4, CEN, RO 


), (NEW STRING) 

N) ENEW_STRING] 
INPUT DESC 

NG, INPUT_DESC+4 

NODE), #17 #6 
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PRIM 


SYMID_LIST 
238 
R 


VALUE 
PRIMPTR 
(R7), RO 
a4, R 


#4. RO, =(SP) 
#1, DBGSGET_MEMORY 


R 
(R?), (RO) 


(R7). R 
R1, 1(R7), 1(RO) 
21$ 


IN 
#3, DBGSNMATCH 
RO, 188 


DBG$CS_CR 
INPUT_BESC 


#3, DBGSNMATCH 


RO 
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#164048 
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INPUT 


SYMID_LIST 
TEMP_DESC 


Ax-11 8 

DEBUG. SRC 
PTR 

INPUT 4 fe 

o3° tf NPARSE ADDRESS 


PRIMPTR 
#3, +” tah tae 
RO, 12$ 


#1 
DBGSCS_LEFT_PAREN 
PUT _BESC 


DBGSNMAKE _ARG_VECT 


DESC 
BGSNNEXT_WORD 
#1, DBGSNSYNTAX_ERROR 


AVE_BREAK_BUFFER 


EMP_DESC 

DBGSGB_RADIX, -(SP) 

INPUT DESC 

. 86 NPARSE_EXPRESSION 
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DBGATSIGN 15-Sep-1984 23:52:11 AX-11 Bliss-32 V 
yOe 000 Veree=hSRe FBFEibL | HONSUE hissed te0- 243... 
000000006 F 1CF CALLS #3, DBGSNGET_SYMID 
9 Bi gS ONG 
bb 1D PUSHL R 
7e OME bb OOlbE PUSH’ TEMP DESC 
000000006 99 o§ FB iff 20$ CALLS § GSNCOPY_DESC 
18 4 4 if6 PUSHL SYMID_LIST 
000000006 00 f FB OO1E CALLS #1, DBGSSTA_LOCK_SYMID 
9 bb 1F5 218 PUSHL R9 
24 AE OF OO1F PUSHAB REPLACED. FLAG 
7E 04 OIE CLRL v (SP) 
8 AE DD O01FC PUSHL 
C ABS DD OO1FF PUSHL Va (NOUN NODE) 
68 DD 00 02 PUSHL (NO 
000000006 00 0 FB 0 CALLS as, : SYM_ADD 
4 50 £8 00208 BLBS 
0 04 10 00 OF 22$: MOVL . 
04 99 1 RET 
58 08 As b0 0212 23$: | MOVL = 8(NOUN_NODE), NOUN_NODE 
FDFF 31 00216 BRW 1$ 
50 01 00 00219 248:  MOVL #1, RO 
04 0021C RET 
; Routine Size: 541 bytes, Routine Base: DBGSCODE + OA3E 
3 2217 2334 1 END 
: 2218 2335 0 ELUDOM 
-EXTRN LIBSSIGNAL 
: PSECT SUMMARY 
3 Name Bytes Attributes 
: DBGSGLOBAL 48 NOVEC, WRT. RD ,NOEXE,NOSHR, LCL, REL, CON, PIC ALIGN(2) 
> DBGSPLIT 407 NOVEC,NOWRT, RD, EXE. SHR, LCL. REL, CON. PIC,ALIGN(O) 
: DBGSCODE 3163 NOVEC.NOWRT, R HR, LCL, REL, CON, PIC,ALIGN(O) 
ae R 0 NOVEC.NOWRT.NORD * NOEXE. *NOSHR, LCL, S, CON,NOPIC,ALIGN(O) 
: Library Statistics 
: woesseee Symbo Lg eeeeeee- Pages Processing 
3 File Total Loaded Percent Mapped Time 
> _$255$DUA28:(SYSLIBILI 18619 78 100 8 
> 7$255$DUA28: [DEBUG. OBJ stautber F 4432: 1 3 1 3 5 09:00 ‘Oo: 1 
; -§ SBEDUR : EDEBUG OBS DeTRECRDS” (32:1 ot - - * 
wy 418 0 0 31 00:00.3 
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a 


1 
saggy VEsSepctQQe GB:4g:H1  YAtabd SUssaZ VécdeZ0 
E -B533$00A38: DEBug: py speceen: 355 #58 " 3 % 00:00:3 
F Information: 2 

; Warnings: 

3; Errors: 

; COMMAND QUALIFIERS 

; Size: 3163 code + 455 data bytes 

Run Time: 00: 38°8 


Elapsed Time: 03:15.9 
Lines/CPU Min: 2391 
Lexemes/CPU-Min: 14814 
260 pages 
tion Complete 


pee | Used: 
Compila 


| 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:DBGATSIGN/OBJ=0BJ$:DBGATSIGN MSRC$:DBGATSIGN/UPDATE=(ENH$ : DBGATSIGN) 
| 
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